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een club van 6502 
gebruikers 

Het doel van de vareniging is het bevorderen van de kennis 
uitwisselinq tussen de gebruikers van 6502 computers zoals 
KIM, SYM, JUNIOR, AIM65, System-65, Acorn, PET en CBM, 
Apple, Atari, ITT2020, PC100, Ohio Scientific Challengers, etc. 
Oit doel wordt onder andere gerealiseerd door vijf maal per 
jaar een clubbi jeenkomst te houden op de derde zaterdag van 
oneven maanden uitgezonderd de maand juli. Ook wordt vijf maal 
per jaar het huisorgaan " DE 6502 KENNER " gepubliceerd, 
welke verschijnt op de derde zaterdag van de maanden februari, 
mei, augustus, oktober en december. 

Naast deze vaste aktiviteiten kunnen de leden gebruik maken 

van club faciliteiten zoals de KIM-CLUB-KIM , de KIM-CLUB-3UNI0R 

en de cassette bibliotheek. 

De KIM gebruikers club Nederland is een volledig onaf hankeli jke 
vereniging met statuten en een bestuur. De club is ingeschreven 
bij de Kamer van Koophandel en Fabrieken voor Hollands Noorder- 
kwartier te Alkmaar onder nummer 634305 

De samenstelling van het bestuur is thans als volgt : 



Dagelijks bestuur 



Voorzi tter 
Secretar is 
Penningmeester 

Accomoda tie 
Hardware 

Ledenadministratie 
Organisatie 
Redactie 
Software 



Anton Muller 
Ruud Uphoff 
Ted Schouten 

Riche van Steen 

Peter Visser 

Bob van de Oudewetering 

Rinus Vleesch Dubois 

Hans Otten 

Sebo Woldrlngh 



Het adres van de 
vereniging is 



KIM GEBRUIKERS CLUB NEDERLAND 
Voorburgpad 10 
6843 EM ARNHEM 

tel. 085 - 816935 op werkdagenvan 19.00 tot 20.00 

Penningmeester : giro nummer 3757649 tnv T. Schouten 3unoplts 57 Haarlem 

f 40,- per kalenderjaar 
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Da 6502 KENNER is 
••a uitgave van 
da KIM Gebraikers 
elub Nader land. 

Adres voor het in- 
senden van en re- 
akties op artike- 
lan voor da 6502 
KENNERt 

Radaktiasakrataris 
Hans Ottan 
Ottoborrengoad 33 
3871 MJ HOEVELAKEN 



Radaktie 6502 KENNERt 
Anton Mtlller 
Hans otten 
Willea van Palt 

Gaheal of gecieelte- 
lijke over name van 
da inhoud van da 
6502 KENNER zondar 
toesteaaing van hat 
bestuur is verboden. 
Toepassen van gepu- 
blioeerde prograaaa's, 
hardware eto. is al- 
lean voor persoonlijk 
gabruik toegastaan. 

COPYRIGHT © 1981 
KIM Gebruikers club 
Nedarland. 

Verschijnt vijf maal 
per jaar. 
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2. Van het bestuur , Anton Muller 

3. Van de redactie , Hans Otten 

4. Nieuwe MOS Technology chips 

5 . Uitnodiging bijeenkomst/ledenvergadering 

6. Agenda 

7. Eprom programmer , Danny Backx 
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17. Conversie van datum naar dag, Dick Blok 
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De laatste tijd wordt ik regelmatig geconf ronteerd met discussies 
over het niveau binnen onze vereniging. De een vindt het niveau 
te hoog, de ander vindt het niveau te laag. Toch proberen we zowel 
in de 6502 KENNER als tijdens de clubbi jeenkomsten de te behandelen 
stof zodanig te brengen dat een ieder aan zijn trekken komt. Mocht 
U ook met dergelijke problemen zitten, laat het ons dan eens weten 
d.m.v. een briefje aan o n der ge t eken de . 

Ook wat betreft het voortbestaan van onze vereniging, zijn sommigen 
van mening dat het in de nabije toekomst een bekeken zaak is met 
de 6502 processoren en dat we ons alvast moeten gaan bezighouden 
mmet bijvoorbeeld de 6809 of zelfs de 68000. Wat is hierover Uw 
mening ? Ook daar zijn wij in gei n teresseer d . 

Overigens staan de 65XX chips vandaag de dag nog volledig in de 
belangstelling. 

Zo heeft M05 Technology een nieuwe CPU ontworpen van het model 
6508 en een tweetal nieuwe 1/0 chips van het model 6523 en 6525. 
Verderop in dit nummer zal in de rubriek marktinfo nader op worden 
in gegaan , 

Waar M0S Technology ook mee bezig is is de ontwikkeling van een 
CMOS versie van de 6502. Ook zijn zij van plan de complete 65XX 
familie in CMOS te gaan uitvoeren. 

Zoals U ziet kunnen we voorlopig nog wel even verder op de door 
ons ingeslagen weg. 

Wat betreft de ontwikkeling van systemen waarin de 6502 wordt 
gebruikt wil ik nog wijzen op de VIC-20 van Commodore en het 
MTU-100 systeem van Micro Technology Unlimited , gebaseerd op de 6502, 
met vermoedelijk high resolution graphics, floppy disks, 256K RAM en 
ga zo maar door. 

Ik had het net even over het voortbestaan van de vereniging. Er 
ontstaan twee vacatures binnen het bestuur, te weten die van 
penningmeester en die van r e da c t i e seer e t a r i s , door het aftreden 
van respect ievelijk Ted Schouten en Hans Otten, die zich niet 
herkiesbaar stellen. Beide functies zijn essentieel voor het 
voortbestaan van de vereniging en derhalve roep ik hierbij nog- 
maals kandidaten op ter vervulling van deze functies. Tot nu toe 
hebben wij nog geen enkele reactie binnen. U laat ons toch niet in 
de steek? Bel gerust eens met de penningmeester, Ted Schouten, 
tel. 023-257171 om over de functie van penningmeester van gedachten 
te wisselen. U zult merken dat het echt wel meeva.lt, Ook kunnen we 
nog iemand bij de redaotie gebruiken die de beschikking heeft 
over een ontwikkelingssysteem dwz assembler sources kunnen 
vertalen en listings produceren op papier het liefst met Micro Ade 
of de assembler van C.W. Moser. Afgezien van redactie 
bi j een koms ten (meestal 5 maal per jaar) scaht ik de werkzaam- 
heden op twee uur per week gemiddeld. Uw medewerking wordt 
bijzonder op prijs gesteid. 

Ik kijk met belangstelling uit naar Uw reacties. 

Anton Muller 
Voorzi tter 
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Redactioneel voorwoord bij 6502 KENNER 18 

H.O.C. Otten 

Het is verheugend te moqen constdteren ddt de 6502 KENNER iedere 
keer weer is qevuld met oriqinele software van club led en van een 
behoorlijk niveau. Vooral de JUNIOR software vertoont een toenemende 
kwdliteit. en o r i g i n d 1 i t;e i t . Hopelijk heeft de vorm wddrin de reddctie 
programma's publ iceert daarop invioed. We trachten te laten zien 
hoe een programma in elkaar /it en behoort te worden gedocumenteerd. 
Daarbij moeten we soms uitgaan van een hex dump van de auteur. 
In dit nummer vindt U een handiq tape kopieer programma waarin is 
geexper imenteerd met pseudo code als commentaar. Vergelijkt U dit 
eens met andere programma's en probeert U te beslissen of deze vorm 
van do.cumen ta tie het programma be g r i j p e 1 i j k e r maakt of juist niet. 
Hetgebruik van pseudo code is een veel gebruikte techniek bij 
1 GE 5TRUCTUREERD PROGRAMMEREN 1 een onderwerp waar wij graag in de 
6 502 KENNER of tljdens een bijeenkomst over willen vertellen en 
discussieren. Stuurt Uw reacties of verzoeken om uitleg over 
wat gestructureerd programmeren inhoudt en wat het kan doen voor 
begrijpelijk en goed te onderhouden programma's naar de redactie. 

De aanpassingen op het schaakproqramma uit KIM KENNER 11 uit het 
voriqe nummer hebben een stroom verzoeken om het oriqineel tot 
qevolq qehad. Helaas is de voorraad uitqeput. De redactie belooft 
in 6 5 0 2 KENNER 20 het schaakproqrammd opnieuw te publiceren, dus 
noq even qeduld tot januari 1982. Overiqens is het proqramma in de 
cassette software service opqenomen , zie biz 4 8. 

In nov ember ho u den we weer onze jaarlijkse leden vergadering. 
Omdat vrij veel bestuursleden aftreden , waaronder penn ingmees ter 
en redactie secretaris wordt ieder die wat vrije tijd wil besteden 
aan de club verzocht zich te melden en in ieder geval naar de 
leden vergaderinq te komen. 

Heeft U een klein of qroot proqramma qeschreven ? Stuur het naar 
de redactie ! Elke bijdraqe is welkom, de redactie verzorqt uw 
artikel verder tot een voor ieder interessant verhaal. 
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MOS Technology is druk doende een aantal nieuwe chips 
te ontwikkelen in de 6 5 0 0 familie; te weten een nieuwe 
CPU en twee I/O poorten. De nieuwe CPU is van het type 
nummer 6508, met een ingebouwde 8 bits I/O poort, met 
ingebouwd 256 bytes RAM, alsmede 16 adreslijnen en 8 
data 1 i j nen . voor een volledige 6^K adresser i ng . 
De 6508 is ontworpen om er multiprocessing mee te doen, 
door in een tri-state adres bus te voorzien en een 
externe twee-fasen clock. Hieronder volgt een afbeel- 
ding van de nieuwe CPU. Typisch een processor voor de- 
dicated toepass i ngen . Jammer dat er geen ingebouwde 
hardware interval timer in zit. 

6508 
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Door : 

Anton M u 1 1 e r 



Een van de nieuwe I/O chips is de 6523, die drie 8-bits 
1/0 poorten bevat, die op een gelijke manier werken als 
de 1/0 poorten zoals we die in de 6530 en 6532 kennen. 
De 6525 is de andere nieuwe 1/0 chip. H } j is gel 1 j k aan 
de 6523, doch heeft daarnaast een aparte operating mode, 
die voor tamelijk sterke moge 1 i j kheden zorgt. Afhankelijk 
van de g e s e 1 e c t e e r d e mode, voorziet de 6525 in of 2k 
1/0 lijnen, of 16 I/O lijnen en 2 handshake lijnen en 
5 prioriteits interrupt inputs!!! Ik heb bij MOS Technology 
uitgebreide dokumentatie aangevraagd en zodra die binnen 
is zal ik daar in een apart artikel aandacht aan schenken. 
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Uitnodiging KIM club bijeenkomst / algemene leden vergadering 
Datum : 21 november 1981 

Lokatie : Cultureel Centrum " De Drietand Neptunusplein 34 Amersfoort 
Amersfoort ^ 

Reisrou t e 

- per auto - vanaf s nelweq A] Amster dam -Apeldoorn - Hengelo 

Bij kruispunt Hoevelaken richting Utrecht, afslag 
Amersfoort nemen, bij stoplicht rechtsaf, bij tweede 
stoplicht linksaf, na 100 mtr rechts het Neptunusplein 

- v a naf Arnhem- Utrecht -Den Bosch 

Bij Utrecht borden richting Amersfoort volgen, langs 
Zeist en Soesterberg naar rotonde ten zuiden van 
Amersfoort richting Apeldoorn. Snelweg volgen tot 
afslaq Hoevelaken, onderaan links onder viaduct richting 
Amersfoort , bij stoplicht verder route als boven volgen. 

- per trein - Vanaf Amersfoort station vertrekken om de 15 minuten 

bussen, afwisselend bus 5 en 6. Halte Neptunusplein. 

T^egamgspr^s f 20,- inolusief koffie, lunch en frisdrankje. 

Proqramma : 

9.30 Ontvangst met koffie 
10*00 Algemene ledenvergaderinq 
Opening 

Algemene mededelingen 

Ingekomen stukken 

Financieel jaarverslag 1979 en 

financieel jaarverslag 1980 reeds in uw bezit 
Begroting 1981 wordt in oktober toeqezonden 
11.00 Koffiepauze 

11.30 Verkiezinq kascontrole commissie 
11.45 Verkiezing bestuursl eden 

Aftredend : Ted Schouten, Sebo Woldringh, Peter Visser en 
Hans Otten. Ze stellen zich niet herkiesbaar. 

Vacatures ontstaan voor de functies penningmeester en 

redactie secret aris. Kandidaten kunnen zich tot op de dag 

van de vergadering schriftelijk aanmelden . 

12.00 Rondvraag 

Sluiting algemene leden vergadering 
12.15 Lezing over tempera tuurmeting mbv de AIM65 door Ted Schouten 

12.45 Lunch 

13.15 Lezing over de imp 1 emen t a t i e van DMA ( direct memory access ) 

met een 6502 systeem door Rinus Vleesch Dubois 
14.00 Lezing over de opbouw van een Microsoft Basic door Ruud Uphoff 
15.00 Theepauze 
15.15 Forum 

15.30 Behandeling van de instruct ieset van de 6502 
16.00 Markt 

16.15 Informele discussies, demonstraties e.d. 
17.00 Sluiting 
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AGENDA 



29 - 31 oktober 1 9 8 1 

2 1 no vembe r 19 81 

2 1 novembe r 1981 

28 november 19 81 



16 januari 1982 

29 januari 1982 

20 maart 1982 

15 mei 1982 



Uitvindersbeurs, Ahoy, 
Rot t e rdam c 

OSI-dag, De Bron, Utrecht. 
KIM-club bijeenkomst, 
Ame r s f oo r t . 
Landelijke HCC dag, 
Jaarbeurshallen, Utrecht. 
(Ook de KIM-club heeft 
een stand!) 
KIM-club bijeenkomst. 
Plaats wordt nader bekend 
gemaa k t . 

De KIM geb r u i ke rs club 
Nederland bestaat vijf jaar 
Lust rum v i er i ng KIM-club. 
Plaats wordt nader bekend 
gemaak t . 

KIM-club bijeenkomst. 
Plaats wordt nader bekend 
gemaakt . 



6500 Gebruikers Groep Delft E-cafe Delft 
U September , 29 oktober , 19 november 



Te koop aangeboden : T.e.a.b. in zeer goede staat 
verkerende IBM 029 CARD PUNCH machine met programma- 
trommel en ve r t o 1 k i n r i c h t i n g . 

Te bevragen bij A. Muller, tel. 020 - 8602^5 
(na 2 0.0 0 uur) . 
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2516/2716 EPROM PROGRAMMER VOOR DE JUNIOR Danny Backx 

Grootreesdi jk 12* 
B 2*60 Kasterlee Belgie 
Na het starten van het programma moet men eerst het beginadres 
van de te pr ogrammeren data ( of programma ) in het geheugen 
intoetsen als op het display verschijnt f Sb' ( Source Begin address ), 
daarna het eindadres + 1 ( r SE' , Source End address ) en tenslotte 
het beginadres waarde data in de EPROM moet komen ( 'db f , desti- 
nation Beqin address ). Het programma con trol eert of programmeren 
wel moqelijk is en achteraf of het programmeren wel correct is 
verlopen.Als in een van beide een fout wordt ontdekt , voert het 
proqramma ' BRK 1 uit. U moet vooraf bepalen waarheen dan wordt ge- 
spronqen maar houdt U er rekening mee dat. de in- en uitgangen van de 
PIA zijn qewijzigd. 

De s.chakeling die voor het programmeren zorgt is eenvoudig. 

Het IC 4040 zorgt voor de adressen en wordt bestuurd door PB0 waar- 

nee het adres kan worden opgehoogd en PB3 die het adres op 0 zet. 

PB4 bestuurt de hulpspanning van + 25V en PB2 geeft de programmeer- 

pu.ls. PB1 schake.lt de EPROM aan en uit via de chip select lijn . 

Data wordt via de PIA A van en naar de EPROM geleid. 

Dit programma is bruikbaar voor de meeste 2516/2716 2K EPROM'S 

van het zogenaamde * 5 V type. 



?B3 



1° 



I PA0 ,mr\ 

mum 



^(> 













i 




! 












> 









\ 



1 

5 

i 

1 .2 tM 



+<rV 




2*1 



DE 6502 KENNER 



7 



5V5TEEM SOFTWARE 



58823; 

~ — w 

8638; 
0866: 
0876: 
8888: 
8858: 
8168 

dim 
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mm 
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8568 

651S 
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8538 

6348 
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* 2516.-2716 EPROM PROGRAMMER MOOR JUNIOR < +5 U > * 

* * 

* DANNV BfiCKK * 

* GRQOTREESDIJK 124 * 

* 8 2468 KASTERLEE BELGIE * 

* * 
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SOURCE END ADDRESSES 



DESTINATION BEGIN ADDRESS 
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PBD 




1858: 


8297 


R5 


E6 






LDfl 


CURfiDL LftST BVTE DONE 


1060: 


8299 


C5 


E8 






CMP 


CENDL 




1170! 


329B 


D8 


D5 






BNE 


LOOPT 




1980: 


829D fl5 E7 






LDfl 


CURfiDH 




1898: 


829F 


C5 


E9 






CMP 


CENDH 




1188: 


82ft 1 


D8 


CF 






BNE 


LOOPT 




1118: 


02A3 20 FC 92 




JSR 


INITftD CONTROL LOOK FOR PROGRAM ERRORS 


1120: 


8286 


89 86 






LDAIM 


$06 
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1138: mm 8D 82 lfi STfi PBD INITIALIZE I/O 

114@: 82flB A3 FF LDRIM IFF 

11901 mm 3D 31 ifl STfi PfiDD 

1168: 82B8 R5 E2 LDfi BEGADL SET POINTERS 

1178: 02B2 85 E6 STfi CURfiDL 

1138= 82B4 A5 E3 LDfi BEGfiDH 

119* 02B6 85 E7 STfi CURflDH 

1288: 82B8 fiD 33 lfi LOOPD LDfi PAD 

1210: 02BB Dl E6 CMP IV CURfiDL 

1228: 82BD F6 81 BEQ OKT 

1236; 82BF 00 BRK PROGRAM ERROR ! 

1240: 82C8 E6 E6 OKT INC CURfiDL NEXT BYTE 

1238: 82C2 D6 82 BHE INCD 

1268: 82C4 E6 E7 INC CURflDH 

!2?0: 82C6 EE 32 lfi INCD INC PBD 

1238: 82C3 CE 32 lfi DEC PBD 

1293: 02CC R5 E6 LDfl CURfiDL 

1383: 82CE CS E3 CMP CENDL LAST BYTE DONE ? 

1310: 82D8 D8 E6 BNE LOOPD 

1328: 82D2 A3 E7 LDfi CURflDH 

1338: S2D4 C5 E3 CMP CENDH 

1348: C2D6 D8 E8 BNE LOOPD 

1358: 82D8 A3 88 LDfi I M $88 EPROM OFF 

1368: mm 3D 82 13 STfi PBD 

1370: 82DD 4C ID 1C JMP RESET KLfifiR NflflR MONITOR JUNIOR 

1330: 82E8 85 FB INPflD STA POINTH 

1398: 82E2 A3 88 LDflIM $60 

1488: 02E4 35 Ffi STfi POINTL 

1418= 82E6 35 F3 STfi INH 

1428: 02E8 28 6F ID JSR GETBVT 

1438: 82EB 18 8fi BPL NONUM 

1443: 82ED 35 Ffi STfi POINTL 

1458: 32EF 23 6F ID JSR GETBVT 

1468: 32F2 18 83 BPL NONUM 

1478: 82F4 35 F3 STfi INH 

1438: G2F6 68 RTS 
1498: 82F7 68 NONUM PLfi 

1508: 02F3 68 P|_fi 

1518: 82F3 4C 88 82 JMP PROG INUOER FOUT OPNIEUU BEGINNEN 

1528: 92FC fi3 3fi INITflD LDflIM $8fi INITIALIZE EPROM RDDRE^ 

1538: 62FE 3D 82 lfi STA PBD 

1548: 8381 A3 82 LDAIM $82 

1550: 8303 3D 82 1A STA PBD RESET ADDRESS COUNTER 

1560: 8386 fi6 FB LDX POINTH 

1578: 8308 fl4 Ffi LOOPUI LDV POINTL 

1588: 830A EE 82 Ifl LOOPU INC PBD 

1598: 838D CE 82 IB DEC PBD 

1660: 8318 88 DEV 

1618: 8311 D8 F7 BNE LOOPU 

1628: 8313 Cfl DEX 

1636: 8314 D6 F2 BNE . LOOPU I 

1648: 8316 68 RTS 
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LOCATE EN REPLACE . . „ 
Haijo K • Hemmin ga 

Ch.Leickertstr 2 6^ 

1062 BD Amsterdam 

Locate en replace is een programma dat bepaalde patronen in het 
geheugen kan opzoeken en eventueel veranderen. Een voorbeeld : 
St el dat door een programma wijziging een subroutine moet worden 
verplaatst. In zo'n geval dient men alle referenties aan deze 
subroutine - DSR's - te wijzigen. 

Dit kan men het programma laten doen en wel als volgt : 

I* Laad de routine op adressen $1780 t/m $17E9 

St el dat er een routine is verplaatst van $0b80 naar $0B98 
Het programmadeel dat deze subroutine gebruikt begint op $0800 
en eindigt op $0C00. 

2, Breng het beginadres in op lokaties $00E8 ( low ) en $00E9 ( high ) 
In het voorbeeld is dus $00E8 = $00 en $00E9 = $08 

3. Breng het eindadres in op $00EA en $00EB. 

Dat wordt hier dus $00EA = $00 en $00EB = $0C . 
^ Ga naar adres $17DC ( label LLEN ) en breng hier de lengte van 

het te vinden patroon in . Hier dus $17DC = $03. 
5, Op de volgende adressen specificeren we het te vinden patroon 

( label LARG ) hier dus $17DD = $20, $17DE = $80, $17DF = $0B. 
6* Omdat we het patroon als het is gevonden ook willen veranderen 

zetten we op adres $17E( ( RLEN ) de lengte van het nieuwe patroon. 

Dat wordt voor het voorbeeld $17E9 = $03 

7. Op de volgende adressen specificeren we het nieuwe patroon ( RARG ) 
Dit wordt $17EA = $20 , $17EB = $98 , $17EC - $0B 

8. Na dit te hebben ingevuld gaan we naar het begin van de routine 
en starten met GO ($1780 ) . Let op BRK vector = $1C00 ! 

9. De routine zoekt het geheugen af en als er niets wordt gevonden 
eindigt de zoekaktie op het adres bovengrens-1 met de controle 
overgave aan de KIM monitor ( $1C4F ). Wordt het gevraagde patroon 
wel gevonden dan gaat de controle ook over naar de KIM monitor. 
Door op PC te drukken krijgen we het vervolgadres van de routine 

na GO te drukken wordt het patroon vervangen en wordt verder gezocht, 
NB. Als RLEN ( $17E9 ) nul is wordt niets vervangen en wordt alleen 
het zoekdeel gebruikt. 
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8316- 
8828; 
0830: 
8848: 

8868; 
8876: 
8838. 
6898: 
6166, 

8118; 
6126; 
8138; 
8148. 
6158; 
8168; 
6178: 
8183: 
8198: 
8206 c 
8218: 
6226, 
8236: 
6243: 
8258; 
6266; 
8276: 
6288; 
6233 = 
8366; 
6318: 



8336: 



6366: 
6376- 
8388: 
6338; 
6466; 
6416^ 
6428; 
6436: 
6448; 
8458: 
0466: 
8478: 
8486: 
8498: 
8586. 
8516: 
8528: 
8538: 
8546: 
8558: 
3: 



1788 



1786 
1738 



1736 
17S8 



1738 
1766 



1708 
1738 



1786 
11 



1786 
1733 



1788 R5 E3 

1732 85 E6 

1784 R5 E9 

1786 85 ED 



1783 m 84 
173R 35 EF 
1783 m 17 
178E 35 F3 
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L0CR7E m REPLACE ROUT I HE 

fiUTEUR : HRIJG K. HEMHINufi 

CH. LEI6KERTS7R 26 3 
1862 SD fiMSTERDRfi 



4 



LGCREF GRG $1738 
BEGIN FG INTERS 



BPL 
BPH 



$88E8 
$88E9 



END POINTERS 



EPL 

EPK 



•T- 



S68ER 
*86E3 



SGfiii POINTERS 

SPL * 
SFH 

CONTINUATION ADDRESS 



POL 
PCH 



DISPLRV HDDRE53 



FDL 
PDH 



*86FA 
*68F3 



KIN HON I TOR USE 



ES6 
SCD 



■■{■ 



$1C4F 
IIF19 



GET BEGIN POINTERS 

LOCfl LDRZ BPu 

STRZ SPL 

LDRZ BPH 

STRZ SPH 

SET UP CONTINUATION ADDRESS 

LOCB LDRIM REPR 
STR PCL 
LDRIM REPR / 
STR PCH 
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8576: 










0586: 




FILL DISPLfiV 




0590: 










0680: 


1790 05 EC 


LCCC 


LDfi 


SPL 


0610: 


1792 85 Ffi 




STfi 


PDL 


0620: 


1794 A5 ED 




LDfi 


SPH 


0630: 


1796 85 FB 




STfi 


FDH 


0640: 


1798 28 19 IF 




JSR 


SCD 


6650: 










0660: 




SCfiK STORAGE 




0676: 










0686: 


179B fi8 M 


LQCD 


LDVIN $m 


0690: 


179D Bl EC 


LOCE 


LDfi IV 


- r, i 


0700: 


179F Dl Dfi 




CMP IV 


LfiRG 


0718: 


lTfll D8 0C 




BNE 


LOCI 


0720: 


17A3 C8 


LOCF 


IHV 




0730: 


17fi4 CC D9 17 


LOCG 


CPV 


LLEN 


0740: 


17fi7 B8 18 




BCS 


LGCL 


0750: 


17R9 Bl EC 


LOCH 


LDfi IV 


SPL 


0760: 


i?m di m 




CMP IV 


LfiRG 


0770: 


17fiD F8 F4 




BEG 


LOCF 


8780: 










8796: 




INCREMENT TO 


NEXT 


S880: 


17AF E6 EC 


LOCI 


INC 


SPL 


0810: 


17B1 D8 62 




BNE 


LOCJ 


0820: 


17B3 E6 ED 




INC 


SPH 


0838: 


17B5 A5 ED 


LOCJ 


LDfi 


SPH 


0840: 


17B7 C5 EB 




CMP 


EPH 


8850: 


17B9 98 D5 




BCC 


LOCC 


0860: 


17BB Fi5 EC 


LOCK 


LDfi 


SPL 


0870: 


17BD C5 Efi 




CMP 


EPL 


8880: 


17BF 98 CF 




BCC 


LOCC 


0890: 


17C1 4C 4F IC 


LGCL 


JNP 


ESC 


8980: 










8918: 




REPLACE ROUT 


[HE 


8920: 










0938: 


17C4 m E6 17 


REPA 


LDfi 


RLEN 


8948: 


17C7 F8 E6 




BEG 


LOCI 


8950: 


17C9 88 




BRK 




0968: 


iTCfl Efi 




HOP 




0970: 










0980: 




fiCTUfiL 


REPLACE 


8998: 




PERFORMED HERE 


1088: 










1816: 


17CB fi8 68 




LDVIM 


*§8 


1828: 


17CD Bl E7 


REPB 


LDfi IV 


RfiRG 


1838: 


17CF 91 EC 




STfi IV 


SPL 


1840: 


17D1 C3 




INV 




1850: 


17D2 CC E6 17 




CPV 


RLEN 


1060: 


17D5 96 F6 




BCC 


REPB 


1878: 


17D7 B0 fiF 




BCS 


LOCB 


1080: 










1890: 




LOCfiTE ARGUMENT 


1100: 










1110: 


17D9 83 


LLEN 




$03 


1128: 


17Dfi 20 


LARG 


S 


$20 



AND SHOW II 



COMPARE TO ARGUMENT 

NOT EQUAL, NEXT 

EQUAL, TRV NEXT WITHIN STRING 

ALL EQUAL V 

VES, FOUND 



CHfiRftTER EQUAL 



COMPARE TO HIGH ORDER PART OF UPPER LIMIT 



COMPARE 



OW ORDER PART OF UPPER LIMIT 



IF LEN ZERO DONOT REPLACE 
UERIFV 



DO NEXT BVTE 
DO NEXT CVCLE 



LENGTH OF ARGUMENT 
FIRST ARGUMENT BVTE 
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1136: 
1146: 
1156: 
1166: 
1176: 
1136: 
1196: 
1298: 
1218: 
1226: 
1238: 
1248: 
1258: 
1268: 
1278: 
123Q: 
1238: 
1388: 
1318: 
1328: 
1336; 
1346: 
1356: 
1368: 
1378: 
1 388 : 
1398: 
I486: 
1418: 
1428: 
1438: 



17DB 19 
17DC IF 
17DD 86 
17DE 86 
17DF 86 
17E8 86 
17E1 68 
17E2 68 
17E3 80 
17E4 66 
17E5 88 



IF 
IF 

68 



17E6 63 
17E7 28 
17ES 
17E9 
17EH 
17EB 68 
17EC 68 
17ED 80 
17EE 88 
17EF 88 
17F6 88 
1 7F 1 68 
17F^ «38 
17F3 FF 



s 



119 
*1F 

♦00 

$66 



$86 
$00 
186 

$68 
$86 
$86 

REPLACEMENT UflLUE^ 



RLEH 
RfiRG 



$83 
$26 
•fir 
$1F 
$68 



$86 
$68 
$68 
$66 
$88 



LENGTH OF REPL 

FIRST E'VTE OF REPLACEMENT 



$06 

DG NOT FQR-3E7 TO SET THE BREFiK UECTOR TO tIC@® 



Te koop aangeboden : 

Acorn Atom computer 8K ROM en 12K RAM , 5 V 3 A voeding f 950, 
Junior computer incl voeding en boeken f 200,- 
Elekterminal en ASCII toetsenbord en UHF modulator f 225,- 



G.W. v.Kampen 
Voltastraat 12 
1221 GD Hilversum - 
tel 035 - 850101 



DE 6502 KENNER 



5V5TEEM SOFTWA RE 



FSK7ST 6502 KENNER SOFTWARE LIBRARY PAGE 01 



0010. OzoO FSKTST ORG $0200 

0020 . 

0030: 

0040. * 

0050: * ELEKTUUR SC/MP CASSETTE- I NTERF ACE- AFREGELPROGR AM- 

0060. * MA T. E. v. DE JUNIOR COMPUTER. 

00/0. * 

0080; * AUTEUR. L. J. JANS EN 

OOVO ; * WILGENLAAN 272 

01 00. 4 9742 NT GRONlNGEN 

0 110: * 

0120. * MET NET hIERNA VQLGEND PROGRAMS A IS OF POORT PBO 

0130. * ftFWISSELEND EEN SIGNAAL VAN 1200 HZ EN VAN 2400 

0140. * HZ AANWEZIG. DIT AFWISSELEN GEEEURT ME i EEN FRE- 

0150. # QUENTIE VAN 50 HZ, ZODAT OF DE POORT ACHTEREEN- 

Oj.60. * VOlGENS AANWEZIG IS: 

01/0. * - EEN HONDERDSTE SECONDE 1200 HZ 

0130: # - EEN HONDERDSTE SECONDE 2400 riZ 

01 VO: * - EEN HONDERDSTE SECONDE 1200 HZ 

0200. * ~ EEN HONDERDSTE SECONDE 2400 HZ ENZ. 

02 10: *• 

0220- * ALS WE DIT SIGNAAL AANSLUITEN OP DE AUDIO- INGANG 

0230. * VAN DE INTERFACE, ZAL OP DE DATA— U I TGANG EEN 

0240. * SIGNAAL ONTSTAAN VAN 50 HZ. 

0250. * MET P4 MOETEN WE hid HET U I TGANGSS I GNA AL SYMME- 

0260. * TRISCH AFREGELEN. DIT GAAT ALS VOLGT. MEET NET 

02/0: * EEN GEL I JKSPANN I NGSMETER DE SPANNING VAN HET 50 

0280. * HZ DAT A-U I TGANGSS I GNAAL. STEL NU MET P4 DE SPAN- 

0290. * NING IN OP 2,5 VOLT. DE DEMODULATOR IS DAN Ar- 

0300. # GEREGELD. 

0310. # 

0320. * AFREGELEN VAN DE FSI -MODULATOK . 

0330: * 

0340. # 

0350. * VOOR HET AFREGELEN VAN DE F3K-M0DULAT0R WORDT GE-- 

0360. * ERUIK GEMAAKT VAN HET IN RADIO-BULLETIN VAN 

03/0: * uANUARl 1930 OEPUBL I CEERDE FREQUENT I E-METER-PRG- 

0380: * GRAMMA. ALS INGANG VOOR DE FREQUENT I EMETER WORDT 

0390: * DE SET-0 VERFLO W- AANSlU I T I NG GEBRUIKT. DEZE IS BE- 

0400: * SCHIKEAAR OP PIN 14C VAN DE EXPANSION CONNECTOR. 

0410: * HET AFREGELEN GAAT ALS VOLGT. 

0420: # SLUIT OP DE DATA- INGANG VAN DE INTERFACE 5 VOLT 

0430: # AAN (HOGG). SLUIT DE AUD 1 0-U I TGANG AAN OP DE 

0440. * FREQUENT I EMETER- INGANG (SO). REGEL NU DE FREQUEN- 

0450: * TIE AF MET P2 OP 2400 HZ. 

0460: * LEG NU DE DATA- INGANG VAN DE INTERFACE AAN AARDE 

0470: * EN REGEL MET PI DE FREQUENT IE AF OP 1200 HZ. DE 

0480. * MODULATOR IS NU AFGEREGELD. 

0490: * 

0500: * 
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0010: 
0G2O : 
0530: 
0040: 
0550 : 
05 60: 
05V 0. 
0530 : 
0590. 
0600: 
06 10 . 
0620 . 
0630: 
0640: 
0650: 



* VERGEET NIET Bid DE FREQUENT I EMETEft PIN 12A { IRQ J 

* EN PIN I2C ( NHI J VAN DE EXPANSION CONNECTOR HET 

* ELKAAR DOOR TE VERBINDEN. 

* +5 VOLT IS AANWEZIG OP PIN 1ft, AARDE OP PIN 4A. 

* P3 DIENT VOOR HET INSTELLEN VAN DE AMPLITUDE VAN 

* HET AUD 1 0-U I TG ANGSS I GNAAL < DAT DAARDOOR AANGEFAST 

* KAN WORDEN AAN DE I NG ANGSGE VOEL I GHE I D VAN DE 

* RECORDER. 

* DAN NU HET PROGRANMA VOOR HET OPWEKKEN VAN EEN 
** SYMMETR I SCH AUD I 0- I NG ANGSS I GNAAL. 

* HET START ADRES IS OP 0200. 

PI A LOCATIES. 



0660 : 


0200 








FED 


* 


$1A82 


PORT P: HATA RET-i T £;TER 


0 6 / 0 . 


i~\ i"\ i"\ 

U Z U U 








PBDD 


* 


PBD 


+01 PORT E DATA DIRECTION 


0 6 8 0 . 
0690. 


0200 


A9 


Oi 




START 


LDAlri 


*0 1 


SET PBO 


0700. 
0710: 


0202 


8D 




1A 




ST A 


PBDD 


ALS UITGANG 


0205 


AO 


OC 




LOOP 


LDYIM 


*0C 


DELAY 1200 HZ 


0720: 


0207 


A9 


01 




DELAYA 


LDAIM 


$01 


SET SI GNAAL HOOG 


0/30. 


0209 


3D 


8*1 


1A 




ST A 


PBD 


OP PBO 


0/40: 


020C 


A2 


64 






LDXIM 


*44 


DELAY 


0 7 ^i»0 . 


020E 


CA 






DEL AYE 


DEX 






07 60. 


02 OF 


DO 


FD 






BNE 


DEL A Y B 




07/ 0: 


02 i I 


A9 


00 






LDAIM 


§00 


SET SI GNAAL LAAG 


0780: 


0213 


3D 




1A 




STA 


PBD 




0/90: 


0216 


A2 


63 






LDXIM 


$63 


DELAY 


0800: 


0218 


CA 






DELAYC DEX 






0810. 


0219 


DO 


FD 






BNE 


DELAYC 




0820: 


02 1 B 










DEY 






0830: 


02 1 C 


DO 


E9 






BNE 


DELAYA 




0840. 


02 IE 


AO 


13 






LDYIM 


$18 


DELAY 2400 HZ 


0850: 


0220 


A9 


Oi 




DELAYD 


LDAIM 


tOi 


SET SI GNAAL HOOG 


0860 . 


0222 


8D 




1A 




STA 


PBD 




0870: 


0225 


A2 


32 






LDXIM 


$32 


DELAY 


0880 : 


0227 


EA 








NOP 






0890: 


0228 


CA 






DELAYE 


DEX 






0900: 


0229 


DO 


FD 






BNE 


DELAYE 




0910: 


022B 


A 9 


00 






LDAIM $00 


SET SI GNAAL LAAG 


0920: 


022D 


8D 




1A 




STA 


PBD 




0930: 


0230 


A2 


31 






LDXIM 


$31 


DELAY 


0940: 


0232 


EA 








NOP 






0950: 


0233 


CA 






DELAYF 


DEX 






0960: 


0234 


DO 


FD 






BNE 


DELAYF 


DELAY 


09/0: 


0236 


83 








DEY 






0980: 


0237 


DO 


CE 






BNE 


DELAYA 




09 70: 


0239 


4C 


05 


02 




JMP 


LOOP 


START NIEUWE PER I ODE 
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0010: 

0020: 

0030: 

0040: 

0050: 

0060: 

0070 : 

0080: 

0090: 

0100: 

0110: 

0120: 

0130: 

0140: 

0150: 

0160: 

0170: 

0180: 

0190: 

0200: 

0210: 

0220: 

0230: 

0240: 

0250: 

0260: 

0270: 

0280: 

0290: 

0300: 

0310: 

0320: 

0330: 

0340. 

0350: 

0360: 

0370: 

0380: 

0390: 

0400: 

0410: 

0420: 

0430: 

0440: 

0450: 

0460: 

0470: 

0480: 

0490: 

0500: 



0200 



DAG 



ORG 



$0200 



CONVERSIE VAN DATUM NAAR DAG VAN DE WEEK 
VIA LOPEND DISPLAY ( JUNIOR VERS IE ). 



MODIFICATIES DOOR: 
DICK BLOK 

R I JKSSTRAATWEG 594 2H 
2026 RD HAARLEM 

IN KIM KENNER 3 PUBLICEERDE PETER RAS 
EEN PROGRAMMA CONVERSIE VAN DATUM NAAR 
DAG VAN DE WEEK. DE UITLEZING VIA HET 
DISPLAY GEBEURDE DOOR HET TONEN VAN DE 
NUMERIEKE WAARDE VAN DE BEREKENDE DAG, 
WAARBIJ MAANDAG 1 IS, DINSDAG 2, ETC. 
IN KIM KENNER 2 PUBLICEERDE JAN DOLK 
AL EEN PROGRAMMA LOPEND DISPLAY MET 
PSEUDO ALF ANUMER I EKE TEKENS. 
DOOR NU DEZE PROGRAMMA S AAN ELKAAR TE 
KOPPELEN WORDT DE UITLEZING VERANDERD. 
ER VERSCHIJNT NU NIET EEN NUMERIEKE 
WAARDE VAN DE DAG, MAAR DE NAAM VAN DE 
DAG VAN DE WEEK; DEZE LOOPT EENMAAL 
VAN RECHTS NAAR LINKS OVER HET DISPLAY. 

HET DATUM NAAR DAG CONVERSIE PROGRAMMA- 
HEEL LOOPT VAN ADRES 0200 T/M 0293. DAN 
VOLGT VAN AF 0295 DE OMZETTING VAN HET 
DAGNUMMER IN HET JUISTE GETAL VOOR HET 
ADRES WAAR DE CODE STAAT VAN DE BETREF- 
FENDE DAG. DIT IS ADRES 0330 VOOR MAAN- 
DAG T/M 0390 VOOR ZONDAG. 
DE UITKOMST VAN DEZE VERMEN I GVULD I G I NG 
EN OPTELSOM WORDT GEZET OP ADRES 00E1. 
TEVENS WORDT 03 OP ADRES 00E3 GEZET, 
ZIJNDE HET CODE ADRES HOOG VAN DE BE- 
TREFFENDE DAGEN. 

VERVOLGENS VANAF ADRES 02A6 T/M 032B HET 
PROGRAMMA VOOR HET LOPEND DISPLAY. 
DAARNA OP ADRES 0330 T/M 0399 ALLE 
DAGEN VAN DE WEEK EN OP ADRES 03A0 T/M 
03C6 DE DISPLAY CODE TABEL VOOR DE 
LETTERS. 

DENK EROM MET INTOETSEN DAT TUSSEN DE 
DAGEN STEEDS EEN RUIMTE VAN ZES GEHEUGEN 
PLAATSEN NIET WORDT GEBRUIKT. BIJV. DE 
ADRESSEN 033A T/M 033F TUSSEN MAANDAG EN 
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0510 








0520 








0530 








0540 








0550 








0560 








0570 








0580 








0590 








0600 








0610 








0620 








0630 








0640 








0650 








0660 








0670 








0680 








0690 








0700 








0710 


0200 






0720 


0200 






0730 


0200 






0740 


0200 






0750 








0760 








0770 








0780 








0790 


0200 






0800 


0200 






0810 








0820 








0830 








0840 








0850 


. 0200 






0860 


0200 






0870 


0200 






0880 


0200 






0690 








0900- 








0910: 








0920 


0200 






0930 








0940 


0200 


A9 


DD 


0950 


0202 


85 


FB 


0960 


0204 


85 


FA 


0970 


. 0206 


85 


F9 


0980 


0208 


08 




0990 


0209 


A9 


06 


1000: 


020B 85 


00 



OINSDAG. 

HETZELFDE GELDT VOOR DE DISPLAY CODE 
TABEL. 

BIJ AANVANG VAN HET PROGRAMMA (START OP 
0200 ) WORDT DDDDDD GETOOND OP HET DISPLAY. 
DAARNA KAN EEN DATUM INGETOETST WORDEN, 
BIJVOORBEELD 151181. DE INGEGEVEN DATUM 
BLIJFT ONGEVEER DRIE SECONDEN OP HET 
DISPLAY STAAN, OM DAN PLAATS TE MAKEN 
VOOR DE CORRESPONDERENDE DAG, WELKE - 
ZOALS GEZEGD - VAN RECHTS NAAR LINKS 
OVER HET DISPLAY SCHUIFT. 

DE INGETOETSTE DATUM WORDT NIET GECONTRO- 
LEERD. HET PROGRAMMA GELDT VOOR DE UAAR- 
TALLEN 1901 T/M 1999. 

PAGE ZERO LOCATIES: 



DISPA * 

DISPB * 

DISPC * 

TEL * 



*OOFB 
♦OOFA 
*00F9 
*0000 



MONITOR ROUTINES: 



SCANDS * 
GETKEY * 



*1DSE 
*1DF9 



SYSTEM RAM LOCATIES: 
— 



PAD * 

PADD * 

PBD * 

PBDD * 



• 1A80 

PAD +01 

PADD +01 

PBD +01 



TABEL MET PSEUDO ALF ABET I SCHE TEKENS 
TABEL * *03A0 



START 



INIT 



LDAIM *DD 
STA DISPA 
STA DISPB 
STA 
CLD 

LDAIM »06 
STA TEL 



DD NAAR 
DISPLAY 
POSITIES 



ZES MAAL 
TOETSEN 
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1010: 
1020: 
1030: 
1040: 
1050: 



1070: 

1080: 

1090: 

1100: 

1110: 

1120: 

1130: 

1140: 

1150: 

1160: 

1170: 

1180: 

1190: 

1200: 

1210: 

1220: 

1230: 

1240: 

1250: 

1260: 

1270: 

1280: 

1290: 

1300: 

1310: 

1320: 

1330: 

1340: 

1350: 

1360: 

1370: 

1380: 

1390: 

1400: 

1410: 

1420: 

1430: 
1440: 
1450: 
1460: 
1470: 
1480: 
1490: 
1500: 



020D 
0210 
0212 
0214 
0217 
0219 
021C 
021E 
0221 
0223 
0226 
0228 
022A 
022C 
022E 
0230 
0232 
0233 
0235 
0237 
0239 
023B 
023D 
0240 
0242 
0244 
0245 
0247 
0248 
024A 
024C 
024E 
0250 
0252 
0254 
0256 
0258 
0259 
025B 
025D 
025F 
0261 
0263 
0264 
0266 
0268 
026A 
026C 
026E 



20 8E 
DO FB 
A9 01 
2C 80 
FO F4 
20 8E 
FO F4 
20 8E 
FO EF 
20 F9 
C9 OA 
10 D6 
A2 04 
06 F9 
26 FA 
26 FB 
CA 

DO F7 
05 F9 
85 F9 
C6 00 
DO DO 
20 8E 
C6 00 
DO F9 
F8 

A5 F9 

38 

E9 28 
BO FC 
69 28 
85 F9 
A5 FA 
C9 03 
10 OB 
65 FA 
38 

E9 01 
35 F9 
A9 13 
DO 02 
A9 01 
13 

65 FA 
85 FA 
65 FA 



ID DISPL 



85 FA 
65 FA 
65 FA 
4A 



1A 
ID 



ID 



ID 



BOUNCE 



JSR 
BNE 
LDAIM 
BIT 
BEQ 
JSR 
BEQ 
JSR 



SHIFT 



ID 



WAIT 
CALC 
DECA 



JSR 
CMPIM 
BPL 
LDXIM 
ASL 
RGL 
ROL 
DEX 

OKIC 
JDntC. 

ORA 
STA 
DEC 

DINE. 

JSR 
DEC 
BNE 
SED 
LDA 
SEC 
SBCIM 
BCS 
ADCIM 
STA 
LDA 
CMPIM 
BPL 
ADC 
SEC 
SBCIM 
STA 
LDAIM 



SCANDS 
DISPL 
*01 
PAD 
DISPL 
SCANDS 
BOUNCE 
SCANDS 
BOUNCE 
GETKEY 
*0A 
START 
*04 
DISPC 



SHIFT 

DISPC 

DISPC 

TEL 

DISPL 

SCANDS 

TEL 

WAIT 

DISPC 

*28 

DECA 

*28 

DISPC 

DISPB 

*03 

MOA 

DISPB 



MOA 

VERVLG 



LDAIM 

CLC 

ADC 

STA 

ADC 

STA 

ADC 

ADC 

LSRA 



*01 
DISPC 
♦ 13 

VERVLG 
*01 



DISPB 
DISPB 
DISPB 
DISPB 
DISPB 



LAAT ZIEN 
WACHT OP TOETS 
TER 

VOORKOMING 
VAN 

DENDER 
EN 

ANDER 
ONGERIEF 
HAAL TOETS OP 
WAS HET 0-9? 
ZO NEE, OPNIEUW 
ZO JA, 
SCHUIF 
DISPLAY 
POSITIES 
4 BITS 
NAAR LINKS 
ZET NIEUWE TOETS 
IN RECHTER 4 BITS 
6 TOETSEN GEHAD? 
NEE, HAAL MEER 
LAAT HELE 
DATUM 3 SEC. 
ZIEN 

SET DICMAAL 

NEEM JAAR 

EN DEEL DIT DOOR 

28 EN ZET DE 

RESTWAARDE 

TERUG IN 

JAAR 

NEEM MAAND 

JAN. OF FEB. ? 

NEE, MRT. TOT DEC. 

GETAL 

EN TREK 

ER 1 

VANAF 

JAN. OF FEB. + 1 JAAR 
EN 1 MAAND 

MRT. - DEC. + 1 MAAND 

CLEAR VOOR OPTELLEN 

MAAND + 1 OF 13 

MAAND 

VERMENIG- 

VULDIGEN 

MET 2. 6 

AFGEROND 

UAAB 
INMHrV 
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1510 


0271 


4A 








1 CDA 










4A 








1 <=£RA 




TOT 


1530 




4A 








L-OrVM 






1540 


0274 


18 








CI C 
www 




UL.nC.LL 


1550* 

X w w \s . 


0275 

V&i / w 


65 


FA 






Anr 

riUw 


U x wi L> 


JL 1 ML_ 


1560: 


0277 


38 








SFC 

www 




EN VERMINDER 


1570: 


0278 


E9 


07 






SBCIM 

www XII 


$07 


MET 7 

1 IW 1 f 


1580: 


027A 


85 


FA 






STA 

win 


DISPB 

W X WI JU> 




1590: 


027C 


A5 


F9 






LDA 


DISPC 


NEEh JAAR 


1600: 


027E 


E6 


00 




SCHRI 


K INC 


TEL 


EN DEEL 


1610: 


0280 


E9 


04 






SBCIM 


•04 


DOOR 4 


1620: 


0282 


BO FA 






BCS 


SCHRIK 


IS SCHR I KKEL JAAR 


1630: 


0284 


A5 


F9 






LDA 


DISPC 


NEEM JAAR EN 


1640: 


0286 


65 


00 






ADC 


TEL 


TEL OP SCHR I KKEL 


1650: 


0288 


65 


FA 






ADC 


DISPB 


MAAND KORR. 


1660: 


028A 


65 


FB 






ADC 


DISPA 


EN DAGEN 


1670: 


028C 


38 








SEC 




KORRIGEER 


1680: 


028D 


E9 


02 






SBCIM 


•02 


MET -2 


1690: 


028F 


E9 


07 




DEEL 


SBCIM 


$07 


DEEL DOOR 


1700: 


0291 


BO 


FC 






BCS 


DEEL 


7 - REST 


1710: 


0293 


69 


08 






ADCIM 


•08 


WAARDE + 1 


1720: 


0295 


A8 








TAY 






1730: 


0296 


A9 


00 






LDAIM 


•00 




1740: 


0298 


18 






ADD 


CLC 




VERMEN I G VULD I G 


1750: 


0299 


69 


OA 






ADCIM 


*0A 


MET 10 


1760: 


029B 


38 








DEY 






1770: 


029C 


10 


FA 






BPL 


ADD 


EN 


1780: 


029E 


69 


10 






ADCIM 


♦ 10 


TEL ER 16 BIJ 

1 W W tmmt \ X W tmf X *— * 


1790: 


02A0 


85 


El 






STA 


♦00E1 


START ADR LAAG 


1800: 


02A2 


A9 


03 






LDAIM 


•03 


DISPLAYING 


1810: 


02A4 


85 


E2 






STA 


•00E2 


START ADR HOGG 


1820: 


02A6 


AO 


OB 






LDYIM 


*0B 


START 


1830: 


02A8 


A9 


00 




DISP 


LDAIM 


•00 


MET SCHOON 


1840 

X w~ V • 


02AA 


99 


E2 


00 


JFA 

wi n 


STAAY 


♦00E2 


DISPLAY 

w x wi wr*i i 


1850' 

X WW V • 


02AD 


88 








DEY 






1860: 


02AE 


DO 


FA 






BNE 


JFA 




1870: 


02B0 


A9 


06 






LDAIM 


•06 




1880: 


02B2 


85 


E7 






STA 


♦00E7 




1890: 


02B4 


A9 


20 






LDAIM 


•20 




1900: 


02B6 


85 


E3 






STA 


•00E3 




1910: 


02B8 


A9 OF 






LDAIM *OF 


AANTAL 


1920: 


02BA 


85 


EO 






STA 


•00E0 


TEKENS 


1930: 


02BC 


EA 








NOP 






1940: 


02BD 


EA 








NOP 






i950: 


02BE 


EA 








NOP 






1960: 


02BF 


EA 








NOP 






1970: 


02 CO 


A9 


00 






LDAIM »00 




1980: 


02C2 


85 


E6 






STA 


•00E6 




1990: 


02C4 


A4 


E7 






LDY 


•0OE7 




2000: 


02C6 


B9 


E7 


00 


•JFB 


LDAAY 


•00E7 


SCHUIF DISPLAY Bl 
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2010: 


02C9 


99 


E8 






STRAY 


*00Ey 


2020: 


02CC 


88 








ncv 

UEL T 


2030: 


02CD 


DO 


F7 






OfME. 


ur 0 


2040: 


02CF 


E6 


E4 






I IMP 




2050: 


0201 


A4 


E4 






LDY 




2060: 


02D3 


Bl 


El 






LDAI Y 


▼ WE. JL 


2070: 


02D5 


85 


E8 






STA 




2080: 


02D7 


E6 


E6 




LOOPA 


INC 




2090: 


02D9 


A9 


7F 




LOOPC 


LDAIM 


*7F 


2100: 


020B 


8D 


81 


1A 




STA 


PADD 


2110: 


020E 


A2 


09 






LDXIM 


$09 


2120: 


02E0 


AO 


06 






LDYIM 


$06 


2130: 


02E2 


B9 E8 


00 


JFC 


LDAAY 




2140: 


02E5 


4C 06 


03 




JMP 


CQIMVD 


2150: 


02E8 


88 






LOOPD 


DEY 




2160: 


02E9 


DO 


F7 






BNE 




2170: 


02EB 


8E 


82 


1A 




STX 

w 1 A 


ppn 


2180: 


02EE 


A9 


00 






L HA T M 




2190: 


02F0 


8D 


81 


1A 




w 1 H 


pAnn 
rHUU 


2200: 


02F3 


A5 


E3 






LUH 




2210: 


02F5 


DO 


03 






one. 


icn 
Jr U 


2220: 


02F7 


4C 


D9 


02 






LUUrL 


2230: 


02FA 


A4 


E6 




y" u 


LUY 


♦OOc.6 


2240: 


02FC 


CO 


FF 






lfyim 


♦FF 


2250 • 


02FE 


FO 


03 






BEQ 


JFE 


22&0 


0300 


4C 


D7 






JMP 


LOOPA 


2270* 


0303 


4C 


CO 


A*? 




IMC 

Urlr 


LQOPB 


2280: 


0306 84 


E5 




UUINvU 


STY 


S00E5 


2290: 


0308 


A8 








TAY 






0309 


B9 


AO 


Uo 




LDAAY 


TABEL 


2310- 


030C 


AO 00 






LDYIM 


♦00 




030E 


SC 


81 


1 A 

1R 




STY 


PADD 


iJJU. 


0311 


8E 


82 


1A 




STX 


PBD 


OOyi ft . 


0314 


8D 


80 


1A 




STA 


PAD 




0317 


C6 


E3 






DEC 


»00E3 


2360: 


0319 


AO 


20 






LDYIM 


*20 


2370: 


031B 


88 






JFF 


DEY 




2380: 


031C 


DO 


FD 






BNE 


JFF 


2390: 


031E 


E8 








INX 


2400: 


031F 


E8 








INX 




2410: 


0320 


A4 


E5 






LDY 


♦00E5 


2420: 


0322 


A5 


EO 






LDA 


♦00E0 


2430: 


0324 


C5 


E4 






CMP 


♦00E4 


2440: 


0326 


FO 


03 






BEQ 


JFG 


2450: 


0326 


4C 


E8 


02 




JMP 


LOOPD 


2460: 


032B 


4C 


00 


02 


JFG 


JMP 


START 


2470: 


032E 


EA 








Kino 


2480: 


032F 


EA 










2490: 
















2500: 

















HAAL NIEUW KARAKTER 
LIIT HET GEHEUGEN 



AANTAL ACHTER ELKAAR 
TE TONEN KARAKTERS 



SLA Y V00RL0PIG OP 



SNELHEID DISPLAY 



ZQEK EINDE TEKST 
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2510 

2520 

2530 

2540 

2550 

2560 

2570 

2580 

2590 

2600 

2610 

2620 

2630 

2640 

2650 

2660 

2670 

2680 

2690 

2700 

2710 

2720 

2730 

2740 

2750 

2760 

2770 

2780 

2790 

2800 

2810 

2820 



TABEL DAGEN MAANDAG T/M ZONDAG 



0330 00130101140401070000 (MAANDAG) 
033A - T/M 033F NIET VAN BELANG 
0340 00040914190401070000 ( DINSDAG ) 
034 A - T/M 034F NIET VAN BELANG 
0350 00231505141904010700 ( WOENSDAG ) 
035A - T/M 035F NIET VAN BELANG 
0360 00041514040518040107 ( DONDERDAG ) 
036A - T/M 036F NIET VAN BELANG 
0370 00221825040107000000 ( VRYDAG ) 
037A - T/M 037F NIET VAN BELANG 
0380 00260120051804010700 ( ZATERDAG ) 
038 A - T/M 038F NIET VAN BELANG 
0390 00261514040107000000 (ZONDAG) 
039A - T/M 039F NIET VAN BELANG 

TABEL MET LETTERS VOGR LOPEND 
DISPLAY PRGGRAMMA 









A B 


C D E F G 


H I 








03A0 7F 


20 03 


27 21 06 OE 42 


OB 7B 








03AA - 


T/M 03AF NIET VAN BELANG 








J 


K L 


M N O P Q 


R S 








03B0 61 


OA 47 


48 2B 23 OC 18 


2F 52 








03BA - 


T/M 03BF NIET VAN BELANG 








T 


U V 


W X Y Z 










03C0 d7 


63 41 


01 09 11 64 






SYMBOL 


TABLE 


3800 38E4 










ADD 


0298 


BOUNCE 


0212 


CALC 0244 


CONVD 


0306 


DAG 


0200 


DECA 


0248 


DEEL 028F 


DISP 


02A8 


DISPA 


OOFB 


DISPB 


OOFA 


DISPC 00F9 


DISPL 


020D 


GETKEY 


1DF9 


INIT 


0208 


JFA 02AA 


JFB 


02C6 


JFC 


02E2 


JFD 


02FA 


JFE 0303 


JFF 


031B 


JFG 


032B 


LOOPA 


02D7 


LOOPB 02C0 


LOOPC 


02D9 


LOOPD 


02E8 


MOA 


0261 


PADD 1A81 


PAD 


1A80 


PBDD 


1A83 


PBD 


1A82 


SCANDS 1D8E 


SCHRIK 




SHIFT 


022C 


START 


0200 


TABEL 03A0 


TEL 


0000 


VERVLG 


0263 


WAIT 


02?D 
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90 10: *************************^ 

0828: 

©030: TAPE COPYING PROGRAM 



0050: HJC OTTEN JULV 1331 

9068: 

0070: BASED OH SUPERDUPE FROM THE FIRST BOOK OF KIM 

0880: AND THE MICRO ADE CASSETTE ROUTINES 

0090: 

0188: COPY WILL REPRODUCE A TAPE COMPLETELY AUTOMATIC 

0110: WHEN READ AND WRITE RECORDERS ARE CONNECTED 

8120: WITH THE MOTOR CONTROLS OF MICRO ADE 
0130: 

0140: DURING HEAD OPERATIONS IT IS POSSIBLE TO STOP THE 

0150: COPYING BY MAKING PA? OF PIA 1788 HIGH 

0160: REMOVE THIS BIT TESTS IF NOT AVAILABLE 

O170: AT 0249, 82D6 AND 02E3 

8180: OR CHANGE FOR KIM TTV BREAK THE PIfl LOCATION TO 1740 

O190: AND THE BRANCH FOLLOWING TO BMI 

0200: 

0210: INSERT REMINDED READ AND WRITE CASSETTES 

G220: AND START AT 0200 

0230: 

8240: FIRST THE WRITE CASSETTE IS RUN PAST THE LEADER 

0250: THEN A FILE IS READ , IF FOUND THE ID AND STARTADDRESS 

0260: ARE DISPLAYED . NEXT THE FILE IS WRITTEN. 

0270: IF READY THE DISPLAY LINE LOOKS LIKE 

0280: ID= 01 START= $3600 COPY ! 

0290: THE DATA FROM THE FILE IS STORED IN A BUFFER AT $2000 

0380: WHERE ENOUGH RAM MUST BE AVAILABLE 

6310: 

8320: THIS PROGRAM CAN EASILY BE MODIFIED TO 

0330: A CHECKING AND DIRECTORY OF ALL FILES ON A TAPE 

0340? BY REPLACING THE JUMP 

6358: 32D0 4C 2A 02 JMP CREAD 

G360: THAT. SKIPS THE WRITING OF A FILE 

0370: 

8388: w:******:**:*:**:**^ 

0390: 

8488: 0208 
8410: 
8420: 
0430: 

8440: 0200 
8450? 02O0 
0468: 0200 
0.470 : 0200 
8488: 0200 
0490: 
8588: 
8518: 

0520: 0200 
0538: 0200 
0540: 0200 
8550: 0200 



COPY ORG 


$0280 


o 

9 




DEFINES : 








BUFFER * 


$28 


* 
J 


PAGE NUMBER OF BUFFER 


SYNC * 


$16 


* 

i 


SYNCHRONISATION CHARACTER 


EOD * 


$2F 


3 


END OF DATA 


EOF * 


$04 


» 
3 


END OF FILE 


SOD * 


$2A 


a 
J 


START OF DATA 


; ZERO PAGE 


USE 






RPTRL * 


$00E0 


3 


READ POINTER IN BUFFER 


RPTRH * 


$00E1 


; 


WPTRL * 


$00E2 


» 

* 


WRITE POINTER IN BUFFER 


WPTRH * 


$00E3 


• 

3 




STRPTL * 


$O0ED 


■ 
J 


POINTER IN PRINT STRING 



— - 
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3 { Kr i n ■* 




• 








*Wor 1 


* COUm FiELiAD IN WRITE 


0590: 


8206 


COUNT * 


$08F2 


■ 


O680: 


8200 


CHKSUfl - 


$88F6 


; CHECKSUM 


0618? 


0280 


CHKHI * 


$08F7 


« 
» 


0628: 


8206 


GANG * 


$80F5 


i USED BV WRITE 


6636 * 


8200 


ID :4c 


$80F9 


J ID OF FILE 


0640 = 


8200 


S7RDRL * 


$86Ffl 


J STARTADDRESS OF FILE 


0650: 


8200 


STfiDRH ^ 


f 08FB 




8660: 


0200 


STfiRTR •* 


?38FC 


i CONSTANT FOR INDEXED WRITE 


G670 ' 


8200 


TRIB * 


$80FE 


I USED BV WRITE 



8788: 


t PIR LOCATIES 






8710: 0288 


PAD * 


11788 


J 


BREAKKEV IN BIT 


8728 : 8280 


PBD * 


11782 




PB2 = REfiD, PB3 


8738: 8288 


PBDD * 


$1703 


* 




8748: 8288 


KPRD * 


11748 


* 


LEDDISPLfiV 


8750: 8288 


KPfiDD * 


$1741 


1 




8768: 8288 


KPBD * 


$1742 


9 


CASSETTE I/O 


8778 : 8288 


KPBDD * 


$1743 


s 

* 




8788- 8288 


TTWrpT ... 

1 i 1 !Cr. ! 


$1744 


I 


TIMER 


8798: 8288 


TIMER * 


$1747 


* 





woiu ••• 

8838 : 
8846 : 
8858: 



8878: 
8838: 
8-398: 
6386' 
8318: 
8928: 
8938: 
8948: 
8958 ; 

0978: 
0330: 
8398: 



8288 
3288 
8288 
8238 
8288 
8288 
8288 
8286 
3238 



8288 
8288 



1823: 
1838: 
1848: 
1858: 
1668: 
1870: 



1890: 
1188: 
1110: 
1120: 



S KIM MONITOR ROUTINES 
RDBIT 



* 

RDBTK * 

RDCHTK * 

PACKT * 

CHK * 

CHKT * 

INIT * 

_sr n<_c. * 

DUTCH * 
PRTBVT * 
CRLF * 
MNITOR * 



$lfi41 
$19F3 
$lfl24 
$1986 
$1F91 
$1940 



$1E9E 
$lEflO 
$1E3B 
$1E2F 

$1088 



i 

I 

r 

1 
9 



READ BIT FROM TAPE 
READ BYTE FROM TAPE 
READ CHARACTER FROM TAPE (2 BYTE) 
PACK ASCII TO HEX 
COMPUTE CHECKSUM IN F6,F7 
COMPUTE CHECKSUM IN 17E7,E8 
INIT KIM PIfi'S 
PRINT SPACE ON TTV 
PRINT fiCCti ON TTV 

PRINT flCCU AS TWO HEX CHARACTERS ON TTV 
PRINT CR + LF ON TTV 
KIM MONITOR ENTRY POINT 



MAIN FLOW OF PROGRAM : 
PROGRAM COPY 

INITCOPY 

REPEAT 

READ FILE TO BUFFER 
WRITE BUFFER TO FILE 

UNTIL FOREVER 

END 
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1130: 



1 148: 


8288 


D8 




STRRT 






■ 


PPfiPFT)! IPP TWT Trnpu 

r f\UL*C.l/Uf\IL l n 1 1 l/Ur V 


1150? 


8281 


fi9 0C 






LDflIM 


$&c 


* 
* 


IHIT CASSETTE MOTOR CONTROL 


1168? 


8283 


3D 93 


17 




j < n 


PRPjH 


i 
3 


1170: 


8286 


R9 FF 








$FF 
+rr 


» 

3 




11305 


8288 


3D 02 






J 1 1 n 


PR Pi 


3 




1198: 


828B 


20 2F 






T^P 


f PI F 

L/r\L.r 


» 
3 




1286: 


828E 


20 2F 


IE 




JSR 


CRLF 


3 




1218: 


8211 


fi2 F6 






LDXIM 


HELLOM 


3 


PRINTSTRING ( TfiPE COPV ) 


1228 = 




R0 03 






LDVlM 

i— U 1 J. 1 1 


nt-.L.L-'Ji i 


/ 


1238" 


8215 


20 D0 


03 




JSR 


PPT^TP 


3 




1248: 


8218 


.-..1 4r 


IE 




•J — ' 1 


f PI F 
vr.Lr 


3 


• 


1233: 


821B 


R9 F7 






L-L-'n i II 


•£C*7 

*r j 


1 
3 


lUKN wKlit CfiSSETTE MOTOR OH 


1 v£fl f. 


821D 


m 02 


17 




— : i ri 


DDfS 

rbL> 


-f 


t -'7fi ) 
— — » ■-. r 


3228 R2 16 










3 


UtLH v '.LEHDERtflSbETTE.) 






20 C0 03 




7 CD 


L'tL-n y 


I 


1298: 


9225 


R9 FF 






L-L-'n i 1 1 


*rr 


2 


lUkN WKiTt LHooETTE MOTOR OFF 


1 380 - 
13185 


0227 


3D 02 


1 7 

i. ; 




CYR 
— ! n 


PRD 
r DL' 


3 


END INITCOPV 


13205 




R9 20 




'-•r-.L-fiL' 


LDflIM 


BUFFER 


• 


r KULtL'Uftt Khriu riLE TO BUFFER 


1338: 


022C 


85 El 






STfi 


RPTRH 


» 


KfcnwfK bUrrtR^THRT 


1348: 
1 35v " 


022E 


85 E3 






STfi 


WPTRH 


* 

i 


UR I TEPTR := BUFFERSTfiRT 


8230 


R3 00 






LDflIM 


$00 


* 

3 




1368: 


0232 


85 F6 






STfi 


CHKSUM 


a 

s 




1378: 


0234 


85 F7 






STfl 


CHKHI 


J 




1388: 


0236 


85 E0 






SIR 


RPTRL 


1 




1338'; 


0238 85 E2 






STfi 


UPTRL 






1488: 


023R 


RS FB 






LDRIM 


$FB 


5 


t mPN PEfiD Cfi^^PTTPMriTfiP 
• L.*j\n r.Lni/ Lrn-JjC 1 J C.I IU I UK UlS 


1418: 


023C 


3D 02 


17 




STfl 


PBD 


i 
* 


1428: 


023F 


R9 13 






LDflIM 113 


* 


TNTT fw^CPTTP T/H 
ill i i L-rii>^c. i it i^u 


1438: 


3241 


3D 42 


17 




STfl 


KPBD 


i 




1448: 


0244 


fl9 7F 






LDflIM 


$7F 


« 




1450: 


0246 


8D 41 


17 




STfi 


KPfiDD 


■ 


1468: 


















1478: 


0249 


2C 00 


17 


—'in 


BIT 


PfiD 




r%tir en i 


1488: 


024C 


10 03 






BPL 


GOON 


i 
-? 


WHiLh NUl brTE = SVNC DO 


1498: 


024E 


4C DE 


02 




JMP 


MONRET 


j 


KtHu ^ o v TE ) 


1588: 


0251 


20 41 


ifi 


UV'Ji t 


JSR 


RDBIT 


1 


it dKEHK E/.IT TO MONITOR 


1518: 


0254 


46 F9 






LSR 


ID 


» 




1528: 


0256 


05 F9 






ORfi 


ID 


j 




1538: 


0258 


35 F9 






STfi 


ID 




UNTIL BVTE = START OF DATA 




825A 


8D 40 


if 




STfi 


KPBD 


3 




1558: 

X Jut' 


025D 


C9 16 




JCT 
1 D \ 


CMPIM 


$16 


j 




i >- ! 0-J * 


625F 


D0 E3 






BNE 


SVN 


/ 






0261 


20 E9 


02 




JSR 


RDCHT 






1588: 


0264 


3D 40 


17 




STfi 


KPfiD 


.? 




1598: 


0267 


C9 2R 






CMPIM 


$2fi 


/ 




1688: 


0269 


D0 F2 






BNE 


TST 


2 




1618 = 


026B 


20 D6 02 




JSR 


RDBVT 


3 




1628: 


026E 85 F9 






STfi 


ID 


3 


ID := READ < BVTE) 


1633: 


0276 


fl2 FE 






LDXIM 


$FE 


I 


STARTADDRESS := READ < ADDRESS) 


1648: 


0272 


20 D6 


02 


mm 


JSR 


RDBVT 


• 

3 


1658: 


0275 95 FC 






STfiZX STfiRTfi 


■ 
3> 




1668: 


0277 


20 91 


IF 




JSR 


CHK 


• 




1678: 


027A 


E3 






INK 




■ 




688: 


027B 38 F5 






BMI 


flDDR 


» 
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1 £ • 

i o^y ' 




















■* "son ■ 


ftft^rv. 

827D 


R2 


02 




BYTE 


LDKIM 


*32 


* 


WHILE NOT BVTE = END OF DATA DO 


i ( Iw 


827F 


20 E9 02 


DUBL 


JSR 


RDCHT 


a 


BUFFER <RP0 INTER) := READ < CHARACTER ) 


1 728* 


ftftftft 

8282 


C9 2F 






mm eod 


• 

3 


CHECKSUM := CHECKSUM + CHARACTER 


i i CM ' 


ftftft .1 


F0 


15 






BEQ 


WIND 




RPO INTER := RPO INTER + 1 


A 5 t*3 ■ 


92o6 


28 68 


IF 




JSR 


PflCKT 


i 


ENDWHILE 


1 Tcr.-j. 

i » jy» 


ft ~» ft ft 

8Z©9 


D0 


48 






SHE 


ELNK 


* 




i?68; 


023B 


Cfi 








DEX 




■ 




■1 — -1 —1/1 , 


828C 


D8 


Fl 






SHE 


DUBL 


a 

* 


■ 


•» • 

x :'ot1« 




81 


E0 






STfilX RPTRL 


* 


• 


1 ~ , »jf- ■ 
i i ?b« 




28 


91 


IF 




JSR 


CHK 


* 




•; ftrift » 

i d*M * 


ft ft ~i"T 

»"? •' "7. '-. 


E6 


E8 






IMC 


RPTRL 


i 




1318' 


ft ft ft r* 

8295 


D8 02 






BNE 


OUER 


« 




•i ftftft » 


ft ~< ft 


E6 


El 






INC 


RPTRH 


i 






8299 


m 


E2 




ftl IT" ft 


BNE 


BYTE 








•■ft ft r« 

&29B 


28 


Pi 32 


i 1 r i ir 

WIND 


JSR 


RDBYT 


* 


RCHECKSUM := READ ^CHECKSUM; 


< r- crft m 

2 c »j - 


*- j- ?L 


C5 


F7 






CMP 


CHKHI 






* ft." ft n 


ftftftft 

82H0 


D8 


31 






BNE 


ELNK 


* 




. i -"ft • 


8202 


28 


D6 


32 




JSR 


RDBYT 






t 8o0« 




cs 


r- - 






cn? 


CHKSUM 


« 

i 




"I G96* 


82fi7 


88 








PHP 




» 




•i ft ft fti . 


62RS 


ft ft 
n:> 


FF 






LDRIM 


IFF 




TURN READ CASSETTE MOTOR OFF 


< f~» < ft r 


ftftftft 
t'^nn 


3D 


02 


17 




Stfl 


PBD 


> 




i 928 s 


ft ft ft r-. 


28 








PLP 




3 


IF RCHECKSUM <> CHECKSUM GREAD FILE TO 


J. ?305 


ft ft r~ 

82BE 


r-.ft 
WW 






• 


BNE 


ELNK 


I 




82BO 




ft r~ 


IE 




JSR 


CRLF 


3 


PRINTSTRING <'ID=) 


•< ~ C ft e 


82B3 


92 








LDXIM 


IDMES 


3 


PRINT <ID) 


i ?c»y 


ft ft ft ET 


fi8 


83 






LDVIM 


IDMES 


/ 




1978* 


ft ft ft T 1 


28 


D8 


83 




JSR 


PRTSTR 


3 




1 


82BH 


HS 


Ff 






LDfi 


ID 


3 




•: .ftftft - 


ftftftr- 
82BC 


28 


3B 


IE 




JSR 


PRTBVT 


3 




2880 ? 


ft ft Pi r~ 

82BF 


R2 


ED 






LDKIM 


STMES 


3 


PRINTSTRING < ' START=0 


2816? 


82C1 


R8 


83 






LDVII1 


STMES 


/ 






82C3 


ft ft 


D8 


33 




JSR 


PRTSTR 


3 


PRINT (STARTADDRESS) 






R5 FB 






LDfi 


STfiDRH 


a 
3 




284Q; 


82C6 


28 


3B 


IE 




JSR 


PRTBVT 


3 






92CB 


R5 


Ffi 






LDfi 


STflDRL 


3 




-ft f"l. J " ft B 


ftftftr-. 

82CD 


26 3B 


IE 




JSR 


PRTBVT 


3 




ft ft •* ft » 


ft.ftr-.ift. 

8208 


4C Fl 


82 




JMP 


CWRITE 


a 

3 




2$o»3 - 


ftftr-.-r 




2fi 


32 




JMF 


CREflD 




END READ FILE TO BUFFER 






















21185 










1 SUBROUTINE REFIDBVTE 




2 1 28 ? 


02D6 


2C 




17 


RDBYT 


BIT 


PAD 


a 
3 


PROCEDURE READ < BVTE) 


2138: 


02D9 


39 03 






BMI 


HONRET 


a 

3 


IF BREAKKEV THEN EXIT TO MONITOR 


2150: 


82DB 


4C 


F3 


19 




JMP 


RDBTK 


a 

3 


END IF 


2168: 


02DE 


m ff 




MOHRET LOflIM 


IFF 




READ BVTE FROM CASSETTE 


2178: 


S2E0 


op, 


02 


17 




STPi 


PBD 


J END READ BYTE 


2180: 


Q2E3 


28 


8C 


IE 




JSR 


INIT 


; 




2190: 


82E6 


4C 


83 


tc 




run 

Jnr 


MNITOR 


a 

3 




2200: 




















2216: 


62E9 


2C 


80 


17 


RDCHT 


BIT 


PAD 


• 
3 


PROCEDURE READ < CHARACTER ) 


2220: 


02EC 


30 F0 






BMI 


HONRET 


J 


IF BREAKKEV THEN EXIT TO MONITOR 


2238: 


62EE 


4C 24 


lfl 




JMP 


RDCHTK 


I 


READ CHARACTER FROH TAPE 


2248: 





















26 
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2258? 


82F1 


89 F7 




CWRITE LDfilM 


*F7 


* 
t 


PPfif FDNPF iilPTTP RlfFFFP Tfl FT1 F 
r f\uuc.L'Uf\c WKi 1 1 DurrcK iu r ill 


2268; 


82F3 


8D 02 


17 




CTTft 

t n 


r Di/ 


3- 


iuni , i wi\i it unjDoc. i 1 1 f iu i UK un 


"278 ' 


02F6 


fi2 08 






! nviM 

LL'A 1 1 1 


*8fi 


3 
















l _ i_r 1 1 


» 


l- ci_n t s r i Luunr 




82FB 


fi9 27 






UL O I t > 






TNTT UPTTF fflcrccTTC Tyn 

ill 4 1 Wr% i f u LnO^L ML 1 * U 


2388* 


62FD 


85 F5 






CTu 

_? ■ n 


{ jni iLi 


J 

i 




-•- 3 


8301 SD 43 1? 




_» » n 


DL'k. 


- ! 








fi2 FF 






LL'.'MI 1 


*r r 


J 


r ni iwt * s o*?*s 












. iii 


cuur 

— ; i it." 


3 


ImHTI f rnnwT > ^ nn 

"'iliLL vUUn 1 / O l/U 




0303 


20 63 






T*~P 


i*»Vi.'i r . - . — 


i 


UP I TF »' '-, VWCHPO N T 7fiT T HW rWfiPftrTFP \ 


2360s 


0368 fi9 2fl 






ll- n 1 1 1 






rniiNT := rntiNT - t 




838D 


28 86 






Trn 

J D',\ 


nil i": , " r 


3 




*~ { • 


8318 


fi5 F9 






LL'ii 




9 


wr% i it \ -« 1 nK i Ur L'n i n ^ 




0312 20 72 






yrn 


UU i D \ 


« 


MP T TP T rs '"i 
WK lit K iu) 




0315 


fi5 Ffi 






LL'n 


CTRHP! 


I 


UPTTF i'^TAPTPhnPFCC'i 


24185 


0317 


20 72 






J 3f\ 


ll| {TPT 

ww » C l ! 


> 






83 IB fl5 FB 






i net 


j s nL-ftn 


n 
9 




9418: 




wu.U i jL 


83 




Trn 


UU i D '. 


i 




+- i ~t i -t+j * 


63 IF 


fie 88 




L/F! i n 


LI/ i i 1 1 




i 


MUTI P I.IPnTKITCTD / DDHTUTCD TtH 

WriiLt wrUiNitK \ KruiNltK LHJ 




8321 


El E2 






< rV8TV 


hIPTP! 


» 
3 


J.IP T TF i' Ri IFFFP r' LIPH T kiTFD *i Ci ^ 
WK lie \ pur r LK K wr U 1 N 1 tK t? .? 


2468' 


6323 


28 72 






TCP 




■i 
3 


WPO INTER := UPO INTER + 1 




8326 


ES E2 






a nl- 


liPTPl 


e 

i 


FMftlitMT! F 
LHL'MJn 1 LP 


~j- >_« r_i r 


8328 D8 82 






PMP 




« 




2430 s 


8328 


E6 E3 








!,|DTp«..| 


i 






832C 


fi5 E2 




i. .» 


LDfi 


;,:ptpi 


I 




2518; 


032E 


C5 E8 






CNF 


RFTRL 


3 




23285 


8338 85 E3 








WPTRH 


J 




a- W w' 1 


8332 E5 El 








PPTPW 


I 






8334 


98 E9 






DLL- 


L'n { n 






25502 


8336 


m 2F 






» PjCi T M 

L-UH i n 


rnr> 

CUL-' 




lilPTTF i'FWn flF HftTft ^ 
wrv lit v UriU Ur L'n 1 n ) 


JZ.-JQK} - 


8338 


28 36 


83 




TCP 


HI iTf UT 
UU l Ln I 




25781 


833B 


fi5 F7 










■ 

3 


IttP T TF i' rLrpi^Cl |M S 
iip s Unpi^K^Ul 1 .> 


25SB: 


833D 


28 72 


u 




TCP 


OUTBT 






2598; 


8348 


fi5 F6 






i_L--! ' 


unr.wUi'j 


r 

J 




2688" 

2& 1 8; 


8342 
8345 


28 72 
fi2 02 






TCD 

1 PkUTM 


UU 1 D 1 


| 




i»W J. * 


8347 


89 84 






Ll/Ail I 

! fSflTM 
LL'n 1 1 1 






lilPTTF i'FWH flF FTI F'l 
wf\ lit \ tni/ Ur r 1 Lt / 


9A^8; 


0349 


28 63 


03 




TCP 


MUP T TP 


1 
J 






0340 


R9 FF 






LDfilM 


jpr r 


I 


TIIPW lilPTTF Pft^^FTTF MHTHP HFF 
i ur.n wM it Un33t lit RUi UK Urr 


2658: 


834E 


8D 82 


17 




STfi 


ppn 








8351 


28 3C 


IE 




JSR 


T K J T T 


j 




"'678: 


8354 


82 Ffi 






LDXIM 


uur ^ i o 




PPTWT I *r(\w i / \ 


4>Vvv • 


8356 


fi8 03 






LDVIM 


UUr M 53 


/ 






8358 


28 D0 


03 




JSR 


PPTCTP 


a 

3 






835B 


A9 21 






LDfilM 




3 




2718" 


835D 28 fi8 


IE 




JSR 




i 
3 




2728" 


8368 4C 2fi 


82 




JMP 


CREflD 


i 


END WRITE BUFFER TO FILE 


2738: 


















2748: 








; SUBROUTINE 


NWRITE 






2758: 


















2768; 


8363 86 Fl 








■ 


PROCEDURE NWRITE <N, CHARACTER) 


2778: 


8365 48 




iilCn 


FHh 




■ 

i 


WHILE H ' 9 DO 


2788: 


8366 20 3£ 








UUTCHT 


» 

3> 


WRITE (CHfiRfiCTER) 


• — .-, .-. - 










PLfi 




3 


H := 1 


2888: 


036fi C6 Fl 






DEC 


CC 


* 


END WHILE 
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2818? 


CH£r rug c~? 




BNE 


HICfl 








RTS 










2349? 






; SUBROUTINE GUTBTC 


2359: 










2368: 




I 7 


QUTBTC JSR 


CHKT 


j ' 1 v * 


fll7^ 4*3 




OUTBT PHfl 


2338 " 






LSRfl 




2399 * 


8T74 4p 




LSRfi 




2938 = 


8375 4fl 




LSRfi 




2918? 


8376 4R 




LSRfl 


• 


2929: 


8377 28 7B 


83 


JSR 


HEXT 


2938" 


03 7 R 63 




PLfl 




2949 = 






HEXT flNDIM *8F 


2959: 


@37D f'3 fifi 




CMP in tm 


2968: 


837F 13 




'-LL 




2979: 


fl^Sfl Tft ft*"' 




SMI 


HEXftT 




fl"TOA &Cj A "7 




flDCIM 


$87 


3989 5 


fllft4 £ Q Tfl 
w - ! l -' *+ D 7 _« 13 




UCVQ T AfSr» t M 

nt,\H i HOC I Pi 


$38 


3fti@: 






Al ITf-UT i r\i i t n 

UuTCHT LDVIM 


$88 


3828: 


01S8 P.4 Fv 




STV 


COUNT 


3838: 


833fi H3 82 




iRV LDVIM 


$82 


3848: 


Bl&f :";4 pp 




STY 


TRIB 


1850 ? 


OTr.p PC Of- 




ZON LDKflV 


NPUL 


3868' 


&TQ 1 4Q 




PHfl 






1 i 


ZONA BIT 


TIMER 


3888? 


qiq*; in cp 




BPL 


ZONA 


3898: 


fal<37 pq pn 




LDflflV 


TIMG 


3108: 


QTQp or, Ad 


1 "7 
I i 


STfi 


TIMERT 


^llft: 

— AAV" 


0^qp, fin; ptr 




LDfl 


GANG 








EORIM 


$88 


ill©: 




1 7 


STfi 


KPBD 


3148: 


rafi4 r«=; 




STfi 


GANG 


3158; 


03fl6 CR 




DEX 




3168; 


sift? nn 




BNE 


ZONA 


li?8s 






PLft 




ft^oo err 




DEC 


TRIB 








BEQ 


SETZ 








BMI 


ROUT 


3210; 


ATM 4ft 




LSRfl 






A"^p i qq nc 




BCC 


ZON 


3239: 


wodj riv Kfv 




SETZ LDVIM 


$88 


3249: 


^"^RS PCi H7 




BEQ 


ZON 




A"^D"7 C~ 




ROUT DEC 


COUNT 


3268: 


Cj^DO Pi A r r 
t/'JD 7 L't» or 




BNE 


TRV 


"\?"7A» 






RTS 


3238: 










3298: 






; TIMING TABLE 


3366: 










3318: 


83BC 02 




NPUL = 


$82 


3320: 


83BD C3 




TIMG = 




3336: 


03BE 03 






$83 


3340: 


03BF 7E 






$7E 


3350: 








3360: 






^LflV ROUTINE 



END NURITE 



PROCEDURE WRITE(BVTE) AS TWO ASCII 



l CHECKSUM := CHECKSUM + BVTE 

; CONVERT LEFT NIBBLE OF BVTE TO ASCII 

; «RITE<ASCII> 

; CONUERT RIGHT NIBBLE OF BVTE TO ASCII 
; WRITECASCII) 
; END WRITE BVTE 



i 



; PROCEDURE WRITE (BVTE) 

J COUNT :=8 

i WHILE COUNT > 8 DO 

; SEND 3 PULSES 3788 HZ 

I IF MSB BVTE = 1 THEN 

' SEND 3 PULSES 3780 HZ 



ELSE 



SEND 2 PULSES 2400 HZ 



END IF 

SEND 2 PULSES 2400 HZ 
' SHIFT BVTE LEFT 
; END WHILE 
; END WRITE BVTE 



NUMBER OF 2400 HZ PULSES 
TIMER COUNT 
NUMBER OF 3788 PULSES 
TIMER COUNT 



28 
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337QS 








3388.' 03C0 fl0 FF 


DELflV LDVIM *FF 


• 
9 


3390: 03C2 A9 FF 


VL00P LDAIN 


*FF 


■ 
9 


3460: ©3C4 33 


ALOOP SEC 




m 

9 


3410: 03C5 E9 01 


SBCIM 


181 


; 


3420: 03C7 D0 FB 


BNE 


ALOOP 


• 


3430: 83C9 88 


DEV 


9 
9 


3440: 03CFI 00 F6 


BNE 


VLOOP 


I 


3458: Q3CC CA 


DEX 




9 


3468: 03CD D8 Fl 


BNE 


DELflV 


• 
9 


3470: 03CF 60 


RTS 




i 


3480: 








3490: 


; SUBROUTINE PRINT STR 


3 568: 








3510: 03D8 86 ED 


PRTSTR STX 


STRPTL 


9 


3520: 0302 84 EE 


STY 


STRPTH 


9 


3530: 03D4 fi0 00 


PNEXT LDVIM 


188 


9 


3548: 03D6 81 ED 


LDfllV 


STRPTL 


a 

■» 


3550: 03D8 48 


PHfl 




I 


356R: 03D9 20 R8 IF 


JSR 


OUTCH 


• 

9 


3578 : 03DC 68 


PLA 




• 
9 


3580: 03DD 30 89 


BMI 


LAST 


1 
9 


3590: 03DF E6 ED 


INC 


STRPTL 


J 


3600: 03E1 Df 02 


BNE 


NEXTS 


* 


3618: 83E3 E6 EE 


INC 


STRPTH 


; 


3620: 03E5 4C D4 83 


NEXTS JMP 


PNEXT 


• 

9 


3630: 03E8 60 


LAST RTS 




i 


3640: 




3658: 
3668: 


J STRING DATA 




3678: 03E9 49 


IDMES = 


•'I 




3638: 03Efl 44 




'D 




3690: 03EB 3D 




•'= 




3760: 03EC fl0 




$A8 




3710: 








3728: 83ED 20 


STMES = 


.* 




3730: 03EE 53 




*S 




3740: 83EF 54 




'I 




3750: 03F0 41 




'A 




3760: 03F1 52 


= 


'R 




3770 : 03F2 54 




'T 




3738 : 03F3 3D 




■-= 




3790 : 03F4 28 


= 






3808: 03F5 A4 




*A4 




3818: 








3820: 03F6 54 


HELLOM = 


-T 




3838: 03F7 41 




'A 




3840: 03F8 50 




'P 




3350: 83F9 45 


= 


'E 




3868: 03Ffl 28 


COPVMS = 






3370: 03FB 43 




'C 




3880: %3FC 4F 




'0 




3390; 63FD 50 




'P 




3980: 03FE 59 


s 


'V 




3910i 83FF fl0 


END 


*A0 





PROCEDURE DELflV (NR) 

DELflV TIME * NR 
END DELflV 



PROCEDURE PR I NTSTR I HG< STR I NGPTR ) 

WHILE NOT END OF STRING DO 
PRINT (MEMORY ( STR I NGPTR ) 
STR I NGPTR := STR I NGPTR + 1 
END WHILE 
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66155 8266 ZENAG ORG $6266 * PROGRAMMA ZENUUSLAG 

6826? 

©S3£« AUTEUR: ROLAND DE PREETERE 

8346= SIKT NICOLAASSTR 27 

8656* 8 9883 GENT 

B06§5 BELGIE 
88?8 • 



DOEL? TRACHT 33 TE BEREIKEN OP MIDDEN- 
DISPLAY Ulfl TOETSEN O T/M 9, WEL- 

01 86 : KE IN OPLOPENDE UOLGORDE DE SNEL- 

HE ID RELAX IEF UERHOGEN. DUS HOE 

G1 26 J KOGER DE TOETSWAARDE DES TE HOGER 

8130' DE SHELHEID. 

0146 = 

8150 : SCORE" UERSCKIJNT OP LINKER DISPLAV. 

8i'60: NIEUWE START, MIDDEN DISPLAV 

8176-' TERUG OP 08. 

61S0; 

8158-" TIJD: DE TIJDSDUUR IS IN AANUANG LANG: 

8200= 38 3ECi H0E MEER m SC00RT , H0E 

8210: KORTER DE SPEELDUUR IN DE UOLGEN- 

8220: DE BEURT . 
0236 : 

8240: EINDE: HET SPEL EINDIGT Nfl UERSTREKEN 

8250: TIJDSDUUR. DISPLAYS STAAN ALLEN 

8260: OF 0. HOOGST BEREIKTE SCORE UER- 

82705 SCHIJNT OP RECHTER DISPLAV. DRUK 

0280 ; "GO" UGGR NIEUUE START. 
0298? 

0300: START: START ADRES IS OP $8288. 
8310: 

8320: N.B. J PROBEER 2ELF EEN ANDERE WAARDE 

8330-- MOOR MIDDENDISPLAV IN PROGRAMMA 

0340: TE UINDEN. 

8350' PROBEER OOK EENS UIT HOE DE TELLER 

0360 : UERSHELD KAN UORDEN. 

8370: PROBEER HET AANTAL SPEELTOETSEN 

8388: UIT TE BREIDEN. 

8390: PROBEER HET AANTAL SPEELTOETSEN 

0480 ; TE BEPERKEN . 

SYS7EEK RAM LOCATIES: 



0498-' 
S538: 
0510: 



8520 : 8200 IRQL * $if)7 E 

0530: 8200 IRGH * flA7F 

0546: 8200 CNTE * $1AFC 

0550: 8200 CHTH * liAFF 

JUNIOR MONITOR ROUTINES: 



S578: 
05S0: 
0530: 

W688: 0288 fl« + $1DB1 

0610: 8280 SCANDS * *1D3E 

0620: 8208 GETKEV + *1DF3 
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6646: 
8658: 
6668; 
6676: 
0680! 
8696; 
0780: 
8718: 
0728= 
8738: 
8748: 
8758: 
8768: 
8778: 
8788: 
8798: 
8:388: 
8818: 
8328: 
8838: 
8848: 
8853: 
8868: 
8878: 
8838: 
8398: 



PAGE ZERO LOCflTIES: 



8280 
6280 
8288 
8288 
8288 
8288 
8288 
8288 
3288 



8918: 
8928: 
8938: 
8948: 8223 



8288 
3282 
8285 
0287 
8289 
0206 
828C 
828E 
021 1 
8214 
8216 
82 IS 
02 IB 
82 ID 
82 IF 
8221 



,99 F8 
8D 46 
H9 88 
85 F8 
85 DO 



02 



8953: 
8368: 
8978: 
8988: 



1388: 
1313: 
1828: 
1838: 
1048: 
1858: 
I960: 
1878: 
1888: 
1890: 
11 88: 
1118: 
1128: 



8224 
8226 

em -it-i 

322A 
8^2C 
822E 
3238 
0232 
0234 
0235 
8236 
8238 
823A 
023C 
823E 
8241 
8243 
8246 



A9 72 
8D FF lfi 
8D 7E lfl 
B9 82 
85 DA 
8D 7F lfl 
fi9 88 
85 DE 
R2 82- 
95 F9 
Cfl 

D8 FB 
fl9 88 
85 FA 
85 DC 
fl5 Ffi 
C9 99 
D8 8C 
E6 Dfl 
F8 
IS 

A5 FB 
69 31 
85 FB 
D6 E8 
26 3E 
F3 FB 
23 8E 
F3 F6 



FLCOU * 
TIMPLS * 
TItlCTB * 
TIMMEM * 
MAXSC * 
TIMCTA * 
PLMEM * 
IHH * 
POIHTL * 
POIHTH * 



START 



ID 



1138: 8248 28 F9 ID 

1140: 824B C9 89 

1150: 024D I© EF 

1160: 024F EA 

1170: 0250 85 DF 

11-98: 0252 58 

1190: 0253 A5 DF 



RSTAR1 



PLAV COUNTER 
+81 TIME PLUS 
+01 TIME COUNTER B 
+81 TIMER MEMORV 
+61 MAXIMUM SCORE 
+61 TIMER COUNTER A 
+81 PLAV MEMORV 

+61 
+81 

HERSTEL PROGRAMMA 61, T 
"RESET" IN TIME ALARM 
CLEAR 

DISPLAV EN 
MAXIMUM SCORE 
BELET INTERRUPT 

START TIMER (IRQ) 

ZET POINTER L OP EERSTE IR ROUT 

/ ZET 

LAAD TIMER MET START 
POINTER H 

TIME COUNTER A RESET 

RESET INH EN POINTL 

GEDAAN? GA UERDER. 
CLEAR MIDDEN DISPLAV 
ALS OOK AFTEL TIMER 
(SPEED 

ZIE OF DISPLAV "99" 
BEUAT 

NEEN, SPRING NAAR SCAN 
TIMERPLUS 



CLC 

LDA PC I NTH UERHOOG MET EEN DECIMAAL 

ADC IN $01 SCORE DISPLAV 

STA PGINTK 

BNE NUfrLAV SPRING NAAR NEW PLAV 

JSR SCANDS 

BEQ SCAN GA NAAR MONITOR ROUTINE 

JSR SCANDS TOT TOETS INGEDRUKT 

PROGR BEQ SCAN (OF BNE!) 



LOAD 



LDAIM 

STA 

LDAIM 

STA 

STA 

SEI 

LDAIM 

STA 

STA 

LDAIM 

STA 

STA 

LDAIM 

STA 

LDXIM 

STAAX 

DEX 

BNE 

LDAIM 



STA 
LDA 
CNPIM 
BNE 



$80D9 

PLCOU 

TIMPLS 

TIMCTB 

TIMMEM 

MAXSC 

TIMCTA 

$66F9 

INH 

POINTL 

$F6 
PROGR 

$03 

INH 

MAXSC 

IRQ 
CNTH 
IR8L 
IRQ 

TIMPLS 

IRQH 

$66 

TIMCTA 

$62 

INH 

LOAD 
$68 

POINTL 
TIMMEM 
POINTL 
$99 
SCAN 



ID SCAN 



JSR GETKEV 

CMPIM $09 . 

BPL SC*N 
HOP 

STA PLMEM 
CLI 

PLAV LDA PLMEM 



NUMERIEKE TOETS? 
GA TERUG NAAR SCAN 

ZET UfiARDE IN SPEEL GEHEUGEN 

IRQ IN DIENST 

PLAATS INGETOETSTE IN 



' .kit ' - 1 
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J 


y j 






rLCUu 


GEncuoth 


i 1 V - 


j ■ 


r~C. 
£C 


L' T 


rvj i,-i,-.r, 

Ur nuur 


IHL 


PLCOU 


UERHOUb DIT GEhEUbEN 


1 O" Q g 




EM 
r t- 






r>T~rt 


RKEv 


uEHEUGEN 98? 


1 * 




rro 
ro 




t 


.3C.U 










1 :": 






uLC 






^ 4..-JL' - 






prt 




Lim 


r. r -i TUT! 


T*r"i r~ r~L i rk t t u t nrri i 

TEl eeh bij midden 






ft 

O? 


i~. < 






$0i 


D l SPLHY 


f -7,-;, 




rtr 


rh 






Oft T 1. ITI 

POINTL 






B26 




SE ID 




JSR 


SCfiHDS 




1296: 


0266 


20 


B4 82 




JSR 


DELAY 


DELAY SCAHDS SUBR 




8209 


DO 


EC 




BHE 


0FHO0P 


SPRING TERUG NAAR 0PH0PEH 




6268 


28 


81 ID 


fiKEV 


JSR 


RK 


T0ETS HOG INGEDRUKT? 


1320? 


826E 


DO 


E3 




BHE 


PLAY 


Jfti HERNEEM 0PH0FEH PGIHTL 


1330 = 


0270 


F8 


BR 




BEQ 


LOOK 


HEEN, ZIE OF 99 BEREIKT IN 


1340 = 
















1350^ 








IRQ 


PHR 




BEWAAR fiCOU IN STACK 


1350: 




CO 






SED 







h -rr,x-j * 


~i ~y r- 

"J jL :' 


nr 

fj J 








LDA 


TIMMEM 


UERHOOG AFTELLER 






bZ 


DP: 






ADC 


T I MPLS 


MET BEREIKTE 


J. HOT " 




,-,cr 

O • J 


r-. .-• 
_ 






STA 


TIMMEN 


SCORETELLER 




--• -? r-. 


90 


87 






BCC 


POSIT 


UERLENGEH ALARMDUUR 




;~>0"7 r - 




op 






LDAIi- 


*8B 


PL ARTS IH AFTELLER 


1430= 


C27F 




DB 






STA 


TIMCTB 


ALARM EIHDE SPEL 


1440? 


0281 


8D 


7P 






STR 


IRQL 


PLARTS IRQ FO INTER 


1400: 






rr 




POSIT 


E0R 1:1 


-?FF 


GF IRQ EINDE SPEL 


1460: 


0286 


SD 


i— r* 


Ifi 




STA 


CNTH 


HERSTART IRQ TIMER 


1470: 


C2S9 


68 








FLA 




HflfiL ACCU MAN STACK 


1400: 


?2?n 


40 








RTI 




TERUG NARR PRGGRAMMA 


1580: 


02SB 


48 






'LBSr; 


PHA 




HCCU IH STRCK 


1010: 


62SC 


E6 


DE 






I HO 


-r t -rr : 

\ ! n 


HGOP TIMER COUNTER OP 


1520: 


G20E 


D8 


18 






BHE 


FLRP 


HIET HUL, SPRING NARR FLAP 


1530: 


3290 


E6 


DB 






INC 


TIMCTB 


HOOF COUNTER B GP 


1540: 


8292 


D6 


14 






BHE 


r-i r. r-. 

runr 


HIET HUL, SPRING FLRP 


1550: 


0294 


A5 


FB 






LDA 


PC I NTH 


ZIE GF LINKER DISPLAY 


1568: 


0286 


05 


DD 






CMP 


NRKSC 


wAARDE MINDER DAN MEMORY 


1570: 


0290 




02 






BFL 


CKAV 


HEEN, SPRING NAAR OKAY 


1589? 


829R 




DD 






LDA 


HRXSC 


LARD MRK BEHAALDE SCORE 


1590: 


6280 


05 


DD 




0KRY 


STA 


P1AKSC 


EN PLAATS TERUG ALS 00K 


1680: 


029E 


85 








STA 


FOINTH 


IH RECHTER DISPLAY MEMORY 


1618: 


82B0 


A9 


F0 






LDA in 


•IFO 


HERSTEL PROGRAMMA UERLOOP 


1628 : 


0282 


0D 


46 82 




m 


PROGR 




1630: 
1640: 


0285 


40 


8B 


82 






"START JUMP NftAR NIEUUE START 


1656: 


02A8 


08 


DO 




FLRP 


LDA In $D8 


v'ERHINDER 'JERDERE TOETS- 


1660: 


82BR 


8D 


46 


82 






PROGR 


I DENT IFI CAT IE 


1670: 


32AD 


A9 


8B 






LDAIM 


m 


START DE FLIKKER IRQ ROUT If 


1688: 


82.RF 


8D 


PC 


1R 




STA 


CMTE 




1698: 


82B2 


63 








PLA 




HAAL ACCU OP 


1786: 


82B3 


48 








f-.-f T 

C ! 1 




TERUG NAAR PROGRAMMA 


1718: 


82B4 


84 


D7 




DELAY 


STY 


PLCOU 


-82 


1728: 


82B6 


28 


SE 


ID 


FDEL 


•JSR 


SCANDS 




1738: 


82B9 


06 


D7 






DEC 


PLCOU 


-82 


1740: 


82BB 


DS 


F9 






BNE 


FDEL 




1758? 




68 








RTS 
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LOTTO 6502 KENNER SOFTWARE LIBRARY PAGE Ol 



00 10: 0200 LOTTO ORG $0200 BELGlSChE LOTTO VOGR DE -JON ICR 
0020 : 

0030: AUTEOR. BENNY VERREC+.T 

0040: GROTE STEENrtEti 43 

0050: B 2440 ©EEL 

0060. BELGIE 
0070. 

OOSO. WAT IS DE BEDOElInG VAN HET L 0 T T 0 -PR 0 G R A N Pi A ? 

0090: 

0 1 00 . 

0110; HET WAS DE BEDOElInG EEN PROGRANNA T£ ONTwERPEn MET 

0120. DE VOLGENDE flOGEL IJKHEDEN. 
0 1 30 . 

0140: 1. BI.j HET STAR TEN VAN HET PROGRAMMA NOET DOOR EEN 
0150. LOPENDE TEKST Do I DEL I OK WORD EN GEN A AkT WELK PRO- 

0160: GRAMMA HET IS EN WElKE TOETSEN KUNNEN WORDEN IN- 

0170. OEOftUKT 0(1 WAT TE KONNEN DOEN. 

0 1 80 : 

0190. 2. DE L 0 T T 0 F Oft M U l. I E ft £ N VAN MlNSTENS 7 PERSONEN TE 
0200. KONNEN IN TOETSEN ( TOETS 1 TOT EN NET 7 >. DE 

0210. FlAATS wAAR DE LOTTO VAN EEN PER SOON BEG I NT, DE 

0220. NAAN VAN DIE PERSGONj HET AANTAl. KOLOMMEN En HE T 

0230. AANTAL GETh^lEK PER KOlOM MOST IN EEN RECORD VAST- 

0240. VASTL I GGE'N, ZODAT OVER TOETSEN VAN DE LOTTO VAN 

0250; EEN ANOER PERSGON, PER VERG1SSING.. ONNOGE^I^jK 

0260. WORDT EN ZODAT OOK DE VOllEDIGE LOTTO WORD T ON- 

0270. DERZOCHT. 

0230: TEVEN3 HOE T ER EEN CORRECT I EMOGELl.JKHE ID BESTAAN 

0290: B I J HET IN TOETSEN VAN EEN VERKEERD GETAl. 

0300: ( N. B. . IN BEuGIE rtEEFT i v !EN DE VOlGEnGE NOG£l_ I jk- 

0310: HEDEN On EEN LOT TOP 0RN0l_ 1 ER IN TE VUllEN; 

0320. OFWEL 2* 4, 6j 3 OP 10 KOUJNNEN.. NET 6 GETALLEN 

0330; PER KQlOM* OFwEL 1 KOuON NET Si 9s \Q* ll, 12, 1 3 

0340. OF 14 GETALLEN I 

0350 . 

0360. 3. DE UITSLAG VAN DE LOTTO IN TE TOETSEN IN DE vOu£~ 
0370: ORDE 6 GET ALLEN + RESERVE GETAL. 

0380. TEVENS NOET ER EEN CORRECT I EMOGElUkhEIC ZIon 61 0 

0390. HET INTOET'SEN VAN EEN ^ERt^EERDE UITSLAG, 

0400. ( N. B. IN BELGIE IS ER SLECHTS EEN -RESEft VEGETAL I 

0410: 

0420. 4. DE LOTTO S VAN DE VERSCH I LLENDE PERSONEN TE ONOER- 
0430: ZOEKEN DOOR ACH TEREEN VOLGENS * IN WILLEKEORIGE 

0440. VOLGORDEj TOETSEN 1 TOT EN NET 7 IN TE DRut^.E^. 

0450: HIERBlJ NOET DAN DE NAAn VAN DIE PERSOON OP HE T 

0460: DISPLAY K.ONEN EN NA 1 A 2 SECONDEN DE UITSLAG. 

0470. 

04S0. 5. INDIEN NAAR 1 OF 2, OF GEEN GETALLEN 00 1ST ZUN 
0490: IN EEN KOlON, r.OET DIE KOLOM NIET OP HET DISPLAY 

0500: KQMCN. 
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05x0. 
0320 . 
.0330 . 
0340 . 
0 330 . 
0 1'''~'0 . 
OwO. 
Cl - t-_ 0 
0590 . 
•V'')0 . 
O-IO. 
0o20. 
0630. 
0 b 4 0 . 
0 6 3 0 . 
066 0 . 
06 70 . 
0630 . 
06 v 0 . 
0700 . 
0710, 
0720. 
0730. 
0740. 
0 730 . 
07^0 . 
0 770 . 
0730. 
0730 . 
0300 . 
03 iO. 
03 20 . 
0330. 
0340. 
0350. 
0860. 
03 70. 
0880 . 
0 8 i 0 . 
0 9 00 . 
0910. 
i ) '■' 2* 
0 930. 
0940. 
0 950. 
0960. 
03 70. 
0930. 
0990. 
1 000. 



6. InDIEn 5 FUN TEN IN EEN kOt-OM * HET RESER VEGETAL; 
riGET DIE 5 (EN ALLEEN DIE 5) ArN En UIT KNIPPEREN 
OF HEX DiSPuAV. DAARENTEGEN VOOR 3, 4, 6 OF GEwGON 
S PuNTEN, MOST MET DISPLAY GEwOON AANEl. I d vEN. 

BE SO HR I dV 1 NO vhiM NET PROGRAfflHA 



DEEL i. BEGlNTEr-.ST: 0200 TOT 026 7 * SUBR OXSPl t 045 i ) 
EN AK ( HUM I TOR >, 

NA HET 8 TAR TEN OF AD RE 3 0200 KOflT EEN LOPENBE TEK3T 
DP HET D ISPt-AV. DEZE KAN EvENTUEEl. 1\hT UITlEG GEvEn 
OVER DE BEDLE\\lN6 VAN nET TOETSENBGRO. DE LOPENDE 
TEKST ZElF 3TAAT VANAF ADRE3 0542 ( BEGIN ) TOT EVEN- 
TOEEu 05FE. nET LAAT3TE TEKEN VAN DE LOPENDE TEKST 
MOET ECnTER STEEDS 3C 1 ZIoNj DAAR DIT QEKOZEM IS ALS 
AFSuU I T I NGSTEkEN, ZODRA " 53 wORDT T E G E N G E k G t v i E N , 
WORDT DE TEKST vAnAF NET BEGIN , OPNIELM GEO! SPlAYED. 
DRUK T MEN TiuBENS HET LQPEN VAN DE TEKST EEN TOETS 1th 
DAN KOMT DEEL II IN Ar.TIE. 

DEEL II. TOE TSDE TEr. TIE. 0268 TOT 03 10 + SUBR GET KEY 

(NUN I TOR): S3 HERN • 03PC >, 

ZOEK i 04 7 D ) EN FUN TEN { 04 A 1 ) 



TOETS A. ON FOfiiNUuIEREN IN TE TOE T SEN i DEEL I V j 
TOETS B. ON UITSlAG IN TE TOETSEN ( DEEL III; 
TOETS i-7. ON LUTTG VAN EEN RERSGCn TE GNDERZOEKEN 
ANDERE TOETS. TERuG NAAR START. 

DRUKKEN WE Nu TOETS 1-7 INj DAN KUNT OP HET DISPLAY 
E N r, E L E 3 E C G N D E N DE N A A PI DIE BI J DIE T G E T 8 H G 0 R T E N 
DAARNA DE uI T3l.AG. HET DISPLAY ZAL ER B I <J'vQQRBEEl.B 
10 uITZIEN. - - - - - 4 . DIT BETEKENT DAM DAT ER 
i KUl.ON BIO wA£- NET 4 UUlSTE PUN TEN. DE ANDERE K0tJ3PH 
MEN VAN HET LOTTOFORflUL. I Eft HADDEN 0/ I OF 2 PuNTENj 
HETGEEN NIET tiOKDT WEERGEGEVEN. 

ER KAN NU WEl. NAXINAAL DE UITSLAG VAN 6 KOwOWiEN OF 
hET DISPLAY j ALHOEWEL THEORETISCH DE MOGEL 1 JkHE ID 
BESTAAT DAT i'lEER DAN 6 VAN DE MAXIflAAL 10 KOLUNNEN 
3 OF NEER PUNTEN HEBBEN. DOCri DAAR DEZE K.ANS KLEIN 
ISj WERDEN HIERvGOR GEEN VOOR Z I EN I NGEN GETRQFFEN, 
WANNEER HET FROGRANNA EEN KQLQM GNDERZOEKTj wORDT h£T 
AANTAl PUN TEN VAN DE EERSTE KULGN GEZET IN "KOlA". 
INBIEn HET RESERvEGETAL GGK UUIST 18/ WORDT Oi GEZET 
IN "KOL.AA , ANDERS KONT 00 IN 1 KOLAA 1 '. DE PUNTEN VAN 
DE TWEEDE kGlON KGMEN IN "KOlB' En 'KGlAB", EnZ. 
"KOuA* TOT EN NET " KGl.J ; EERSTE GEHEUGENREEkS. 
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1010: 

i 020 : 

1030: 

1040: 

1030: 

1060: 

1070: 

-030: 

1090: 

1100: 

1110: 

1 120: 

1130: 

1140: 

1150: 

1 160: 

1 1 70: 

1180: 

1 190: 

1200: 

1210. 

1220: 

1230: 

1240: 

1250: 

1 260: 

-270: 

12S0: 

1290: 

1300: 

1310: 

1320: 

1 330 : 

1340: 

1350: 

1 360 : 

1370: 

13S0: 

1390: 

1400: 

1410: 

1420: 

1430: 

1440: 

1450: 

1460: 

1470: 

1430: 

1490: 

1500. 



"KOLAA- TOT EN MET "KGLAd": TWEEDE GEHEUGENREEKS. 
WANNEER DE PUNT EN IN "KOLA" TOT EN NET "KOLJ" WORDEN 
GMGEZET IN EEN SEGMENTCGDE ( IN "GMZ" h WORDEN DEZELF- 
DE GEHEUGENREEKSEN GEBRUIKT OM MET RESULTAAT IN H£A 
TE SCHRI-Jv'EN. 

VOGRBEELD. 



KOLA B C 
03 00 01 


0 
04 


E 

00 


F 

02 


G 

00 


H 

01 


I 

00 


J 
05 


1STE GEHEU- 
GENREEKS 


KOLAA AB AC 
00 01 00 


AD 

00 


AE 

00 


AF 

00 


AG 

00 


AH 

00 


AI 

01 


A.J 
01 


2DE GEHEU- 
GENREEKS 


NA OMZETTING: 


















30 1? 12 


3 7 


37 


37 










1STE GEHEU- 
GENREEKS 


30 19 7F 


37 


37 


37 










2DE GEHEU- 



GENREEKS 

WE HEBBEN HlER EEN VOORBEELD GENOMEN MET 0. A. 5 PUN- 
TEN + RESERVEGETAL JUIST ( KOLJ EN KOLA J ). NO WORDT 
EERST DE 1STE GEHEUGENREEKS IN DE D I 8PLA YBUFFERS G£- 
ZET EN GEDURENDE BI.JV. 0. 5 SECONDEN GETGOND EN DAAR'NA 
DE 2DE GEHEUGENREEKS, DAN TERUG NAAR DE EERSTE GEHEU- 
GENREEKS, ENZ. ( In "UITSL" >< DAN KRIJGEN WE MET 
EFFECT DAT HET CIJFER 5 ZAL KNIPPEREN, TEN TEKEN VAN 
5 PUN TEN JUISf + RESER VEGETAL. , TERWIJL DE ANDERE 
CIJFERS GEWOON OPLICHTEN. 

DRUKKEN WE NU EEN VAN DE TOETSEN TUSSEN 1 EN 7 IN, 
DAN WORDT ALLES HERMAALD, MAAR DAN VOOR DE PERSGON 
BEHORENDE BI.J DAT CIJFER. 

DEEL III: IN TOETSEN UITSL AG: 0311 TOT 034A + SUBR 
GETBYT ( MONITOR ) 



HEBBEN WE TOETS B 
SLAG VAN DE LOTTO 
BELGISCHE LOTTO IS 
VIER VAN DE ZES DI 



I NGEORUKT, DAN KUNNEN WE NU DE UfT- 
IN TOETSEN. LET OP DAT DIT VOOR DE 
. MET MAAR 1 RESER VEGETAL. 
SPLAYS WORDEN GEDOOFD. 



ELK LOTTO GETAL BESTAAT UIT TWEE CIJFERS (7 IS 
NA INTOETSEN VAN HET 2DE CIJFER KOMT HET GET Al 
DISPLAY EN WORDT HET WEGGESCHREVEN. 
NA INTOETSEN VAN HET LAATSTE GETAL (RESERVE GETA 
TOETStN WE EEN WiuLEKEURIG GETAL IN vhii ? Cl.-r : 
SEN 00 EN EE ( NIET FF ! ) WAARDOOR NAAR START W<. 
TERUGGESPRONGEN. 



0 7 
OF 



HE T 
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1510: FOUTCORRECT I E : DOOR HET INTOETSEN VAN FF KUNNEN WE 

1520: EEN FOUTIEF INGEVGERD GETAL VERBETEREN. LET ER WEL 

1530: OP DAT HET GETAL DAT FOUT WAS OP HET DISPLAY ST A AT * 

1540: DUS DAT WE 2 CIJFERS INGETOETST HEBBEN. NA HET IN- 

1550: TOETSEN VAN FF KOMT HET VORIGE GETAL OP HET DISPLAY 

1560: TE STAAN. 
1570: 

1580: DEEL IV: INTOETSEN FORMULlEREN: 034B TOT 03FB + SUBR 

1590: NIEUW ( 04BS ) EN 

1600: SCHERM ( 03FC ) 

1610: 

1620: VOOR DAT WE D£ FORMULlEREN GAAN INTOETSEN, MOETEN WE 

1630: EERST EVEN VASTLEGGEN WAAR WE DIE GAAN WEGSCHR I J VEN. 

1640: WE GAAN HIERVOOR GEBRUIK MAKEN VAN HET VOLGENDE 

1650: SCHEMA: 
1660: 

1670: NAAM ( IN OMGE- AANTAL KOLOMMEN PLAATS 
1680: KEERDE EN GET ALLEN PER 

1690: VOLGORDE ) KOLOM 

1700: 

1710: 6 BYTES 1 BYTE 2 BYTES 

1720: 

1730: VOORBEELD: PERSOON 1, NAAM LIEF, 10 KOLOMMEN MET ELK 

1740: 6 GETALLEN, PLAATS 0600, WORDT: 

1750: 

1760: OE 06 F9 47 3F 79 A6 06 00 RECORD 

1770; 

1780: F E I L - 1 KG PLAATS DISPLAY: 1-LIEF 

1790: 

1800: AANTAL KOlOMMEN EN GETALLEN PER KOLOM: A6 

1810: HET EERSTE DEEL VAN DIT GETAL, A, WIL ZEGGEN: 

1820: 10 KOLOMMEN. 

1830: HET TWEEDE DEEL VAN DIT GETAL, 6, WIL ZEGGEN: 

1840: 6 GETALLEN PER KOLOM. 

1850: VOORBEELD: 14 GETALLEN MET 1 KOLOM ZOU ZIJN: IE 

1860: PLAATS: 0600: DE LOTTO VAN PERSOON 1 BEG I NT OP ADRES 

1870: *0600. 

1880: ZORG ER WEL VOOR DAT DE LOTTO VAN EEN PERSOON VOL- 

1890: LEDIG OP DEZELFDE GEHEUGENPAG I NA STAAT. DIT IS ZEER 

1900: BELANGRIJK EN ABSOLUUT NOODZ AKEL I JK ! 

1910: OM TE WETEN WAAR WE, OM ZO EFFICIENT MOGELIJK TE 

1920: WERKEN, DE LOTTO VAN DE VOLGENDE PERSOON MOETEN LATEN 

1930: BEGINNEN: DIT VOORBEELD, NL. A6, IS DUS 10 KOLOMMEN 

1940: MET 6 GETALLEN ELK, DUS 10 X 6 m 60 GETALLEN » HEXA- 

1950: DECIMAAL 3C. DE LOTTO VAN DE VOLGENDE PERSOON KAN DUS 

1960: BEGINNEN OP ADRES 0600 + 3C = 063C. WEL KONTROLEREN 

1970: OF DIE VOLLEDIG OP DIE PAGINA 06 GAAT. 

1980: DE "RECORDS" VAN DE VERSCH I LLENDE PERSONEN MOETEN 

1990: VOLLEDIG AANEENSLU I TEN EN OP DEZELFDE PAGINA LIGGEN. 

2000: OOK IN DE JUISTE VOLGORDE, DUS EERST VAN 1, DAN VAN 2 
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20 1 0 : 

2020 : 

2030 : 

2040: 

2050 : 

2060: 

2070: 

2080: 

2090: 

2100: 

2110. 

2120: 

2130: 

2140: 

2150: 

2160. 

2170: 

2180: 

2190: 

2200: 

2210: 

2220: 

2230 : 

2240: 

2250: 

2260: 

2270: 

2280: 

2290 : 

2300 : 

2310: 

2320: 

2330: 

2340: 

2350: 

2360: 

2370: 

2380: 

2390: 

2400: 

2410: 

2420: 

2430: 

2440: 

2450: 

2460: 

2470: 

2480: 

2490: 

2500: 
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ENZ. 

WILLEN WE DE FORMUlIEREN NU GAAN INTGETSEN, DAN 
DRUKKEN WE OP "A". OP HET DISPLAY VERSCHUNT VOOR 
EEN TWEETAL SECONDEN DE NAAM VAN DE PERSOGN, EN DAN 

1 . DE EERSTE TWEE DISPLAYS ZULLEN HET INGE- 

TGETSTE GETAL WEERGEVEN, HET 4DE DISPLAY IN WELKE 
KOLOM DIT STAAT, HET 6DE DISPLAY HET HOEVEELSTE GETAL 
IN DIE KOLOM DAT GETAL IS. VOORBEELD. 23-1-2. 23, HET 
2DE GETAL IN DE 1STE KOLOM. HEBBEN WE NU B I J VOORBEELD 
VOOR DIE PERSOGN AANGEGEVEN DAT ZIJN LOTTO BESTAAT 
UIT 1 KOLOM MET 8 GET ALLEN/ DAN HOUDT HET PRGGRAMMA 
HIER REKENING MEE EN ZAL, NA HET INTGETSEN VAN EEN 
9DE GETAL/ TERUG NAAR START WORDEN GESPRONGEN. 
FGU TCORREC TIE: HEBBEN WE HET 13TE, HET 2DE/ OF ALLE- 
BEI DE CIJFERS VAN EEN GETAL VERKEERD INGETGETST, 
DRUK DAN 1 MAAL OP F. 

N. B. : HET PRGGRAMMA IS, DENK IK/ TAMELUK GEMAKKE- 
LI.JK AAN TE PASSEN VOOR DE NEDERlANDSE LOTTO. 
SUGGEST I ES TOT VERBETERING EN/OF VERKORTING ZIJN 
STEEDS WELKOM. 

VERDERE INLICHTINGEN ZIJN OP HET ADRES VAN DE 
AUTEUR TE BEKOMEN. 

VEEL SUCCES EN HOPELUK 6 PUN TEN ! 

P. S. : LOOPSNELHE I D BEGINTEKST AFHANKEL I JK VAN DE 
INHOUD VAN 0241. 

TIJD DAT NAAM OP DISPLAY BLUFT, AFHANKEL UK VAN DE 
INHOUD VAN 0438. 

KNIPPERTEMPO BIJ 5 PUNTEN + RESERVEGETAL, AFHANKEL UK 
VAN DE INHOUD VAN 04B4. 

VOORBEELD BEGINTEKST: 



0542 . . . . 7F 47 23 07 07 23 7F 7F 37 7F 08 7F 37 7F 

LOTTO ■ A 

0550 OE 23 2F 48 63 67 6F 06 2F 06 2B 7F 7F 7F 03 7F 

FORMULIEREN B 

0560 37 7F 63 6F 07 12 47 08 42 7F 7F 7F 79 3F 78 7F 

U I T S L A G C 

0570 37 7F 23 2B 21 06 2F 24 23 06 OF 7F 7F 7F 5C 

G N D E R Z 0 E K 
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23 

2310. 
2530. 
2340. 
2330. 

2370 . 
2380 . 

2600. 
2ci0. 



/OORBEEuD VAN AANt.ENGciSL.GTEN RECORDS vOGR 7 PERSONEN: 



NR ADDR 


NAAROEN 








KG PLAATS 


DISPLAY 
















1 0303 


OE 06 F9 


47 


3h 


-y »•- : 

/ 7 


A6 06 00 as 


iHuIEF 


2 050C 


4i 47 03 


43 


3F 


24 


A 6 06 3C - 


2-MALU 


3 03 15 


OF 2r 06 


01 


3F 


30 


A6 06 78 


3-WERK 


4 031E 


OF 2F 06 


0 1 


3F 


if 


A6 06 B4 « 


4-WERK 


3 0527 


OF 2F 06 


01 


3F 


12 


A6 07 00 = 


5-WERK 


6 0530 


7F OE 06 


61 


3F 


02 


46 07 3C - 


6-JEF 


7 0539 


F9 4 7 08 


09 


3F 


78 


A6 P7 54 - 


7-HALI 



2640. 
2630; 




JUNIOR 


NUN i TOR ROUT 




2 6 6 0 1 













ai'6 / . 


j.. 0 


GETS Y 7 




*lD6r 




ul. 6 6 U . 


0 2 0 0 


AK 


ft 


ilDBl 




26 90 . 


0 2 0 0 


SCD3S 




*1DAC 




2 700. 


020 0 


GETkEy 




*1BF9 




27 1 0 ; 












2720 . 
2730. 




SYSTEM 


RAN 


LODATIES 




2 740. 












27-30. 


0200 


NKlL 




$IA7A 






0 2 0 0 


NMIH 




S1A7B 




2 7 7 0 . 


0 2 0 0 


FAD 




frlASO 




2 730: 


0200 


PADD 


# 


PAD 


+01 


2 7 9 0 


0 2 0 0 


FBD 


ft 


PADD 


+01 


2800 . 


0 2 0 G 


PB0D 


ft 


PBD 


+01 


2 8 1 0 . 
2820. 


0200 


LOOK 


ft 


*1F0F 




2830: 




PAGE ZERO 


LOCATIES. 




2840' . 
























2 3 0 . 


0 2 0 0 


DISA 




$0000 




2870. 


0 2 0 0 


01 SB 


# 


DI8A 


+01 


2 8 8 0 . 


0 2 0 0 


DISC 


it 


DI3B 


+01 


2 8 9 0 . 


0 2 0 0 


01 3D 


ft 


DISC 


+01 


2 v 00 . 


020 0 


DISE 


*r 


DISD 


+01 


29 iO; 


0200 


DI8F 


m 


DISE 


+01 


2920. 


0200 


RE8A 


ft 


Ol'SF 


+01 


2 930. 


0200 


TELA 


# 


RESA 


+01 


2940: 


0200 


TElB 




TEl.A 


+01 


2 950: 


0200 


TELC 


* 


TELB 


+01 


2960 ; 


0200 


SAVEY 


# 


TELC 


+01 


2970. 


0200 


PLAA 




SAVEY 


+01 


2960. 


0200 


PlAB 




PLAA 


+01 




0200 


KOLON 




FL.AB 


+01 


3000. 


0 2 0 0 


CYFER 




kGl-ON 


+01 
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3010: 


0200 


VOLGK 


* 


CYFER 


+01 


3020: 


0200 


KOLA 


* 


VOLGK 


+01 


3030: 


0200 


KOLB 


* 


KOLA 


+01 


3040: 


0200 


KOLC 


* 


KOLB 


+01 


3050: 


0200 


KOLD 


# 


KOLC 


+01 


3060: 


0200 


KOLE 




KOLD 


+01 


3070: 


0200 


KOLF 


* 


KOLE 


+01 


3080: 


0200 


KOLG 


* 


KOLF 


+01 


3090: 


0200 


KOLH 




KOLG 


+01 


3100: 


0200 


KOLI 


* 


KOLH 


+01 


3110: 


0200 


KOLJ 


* 


KOLI 


+01 


3120: 


0200 


KOLAA 




KOLJ 


+01 


3130: 


0200 


KOLAB 


* 


KOLAA 


+01 


3140: 


0200 


KOLAC 


* 


KOLAB 


+01 


3150: 


0200 


KOLAD 


* 


KOLAC 


+01 


3160: 


0200 


KOLAE 


• 


KOLAD 


+01 


3170: 


0200 


KOLAF 


* 


KOLAE 


+01 


3180: 


0200 


KOLAG 




KOLAF 


+01 


3190: 


0200 


KOLAH 


# 


KOLAG 


+01 


3200: 


0200 


KOLA I 


♦ 


KOLAH 


+01 


3210: 


0200 


KOLAJ 


* 


KOLA I 


+01 


3220: 


0200 


TELD 


* 


KOLAJ 


+01 


3230: 


0200 


UITSA 


* 


TELD 


+01 


3240: 


0200 


UITSB 


* 


UITSA 


+01 


3250: 


0200 


UITSC 


# 


UITSB 


+01 


3260: 


0200 


UITSD 


* 


UITSC 


+01 


3270: 


0200 


UITSE 


* 


UITSD 


+01 


3280: 


0200 


UITSF 


♦ 


UITSE 


+01 


3290: 


0200 


RESERV 


* 


UITSF 


+01 


3300: 


0200 


TELE 


♦ 


RESERV 


+01 


3310: 


0200 


TELF 


* 


TELE 


+01 


3320: 


0200 


TELG 


♦ 


TELF 


+01 


3330: 


0200 


BYTES 


* 


*00F6 




3340: 


0200 


POINTH 


* 


*OOFB 




3350: 












3360: 




WERK GEBIEDEN IN PAGE 5: 


3370: 












3380: 












3390: 


0200 


NAMO 


* 


♦0500 




3400: 


0200 


NAMA 


* 


NAMO 


+01 


3410: 


0200 


NAME 


♦ 


NAMA 


+01 


3420: 


0200 


NAMC 


* 


NAMB 


+01 


3430: 


0200 


BEGIN 


* 


*0542 




3440: 












3450: 












3460: 












3470: 












3480: 












3490: 












3500: 
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D'J 1 U . 

302G . 
3530; 
3540. 
3*330 . 

3370: 
3580. 

35 YG. 
3600. 
So i 0 . 
3620 . 
3630 1 
3640 . 
3650. 
3660 . 
3 6 7 0 . 
3 6 8 0 . 

36 90 . 
3 700 . 
3/10. 
3720. 
3730. 
3740. 
3 7 3 0 . 
3760. 
3770. 
3730. 
3 7-/0. 
3800 . 
38 10. 
3820 . 
3830 . 
3840. 
3 350. 
3860 . 
3870 . 
3380 . 
3890 : 
3900. 
39 10. 
3920 . 
3930 . 
3940. 
3950. 
3960: 
3970: 
3980. 
3990. 
4000: 



0200 
0202 
0203 
020 6 

0 2 0 7 
0209 
020 C 
020E 

021 i 
0 2 1 3 
0215 
0216 

02 1 A 
02.1 C 
02 IE 
02 IF 
0221 
0224 
0226 
0 2 2 8 
022m 
0 2 2 C 
02 2F 
023 1 
0234 
023 7 
0259 
023C 

023 £ 
0240 
0242 
0244 
0246 
0248 
02 4 A 
02 4 C 
024E 
024F 
0 2 5 1 
0253 
0255 
0258 
023A 
02 SC 
023E 
0261 



D8 



8D 



LH 

10 
20 
£6 
A 5 

t 7 

9 0 
20 
F 0 
40 
20 
F 0 
4C 
E6 
AS 
C 7 
DO 
A2 
6 6 
A2 
B3 
95 
CA 
10 
A 6 
E 6 

BD 

C9 
FO 

4C 

A'v 







h 0 G 


r D F 


R 0 G 


IE 




START 


LDA IN 


•IE 


fe -3 


1 A 




STA 


PBDD 








CLB 
SEI 




02 






LDAIM 


3 TART 


76 


lA 




STA 


NNIh 


00 






LDAIM 


START 


/ H 


1 A 




3 TA 


NM I L 


i L 






L.DX IN 


fi»: 


0 7 






STAZ a 
DEa 


TEuA 


Fd 






br l. 


NUL 


/ r* 






LDAIfl 


t 7F 


0 5 






LDX iW 


$05 


00 




N0l_A 


S TA2X 


D I SA 








DEa 




FB 






BPL 


NUL A 


5 i 


04 


SHOW 


J 3R 


DISFl. 


07 






INC 


TELA 


0 7 






LDA 


TELA 


so 






CMF IM 


$30 


10 






BCC 


SHOWS 


£.1 


ID 




J3R 


Ar. 


03 






DEO 


SHOW A 




02 




JftP 


TOETS 


El 


ID 


SHOWA 


•J SR 


AK 


03 
6 6 


0 




BEG 
JfiP 


SHOwi 
TOETS 


08 




SHGwE 


INC 


TEuB 


Oh 






LDA 


TELl 


4f 






CMP in 


5-4F 


DD 






BNE 


SHOW 


00 






LDX in 


too 


0 8 






STX 


reus 


05 






LEXIfl 


$05 


00 




SCHUH 


: ' LDA 2 X 


D1SA 


01 






STAZX 


DISB 








DEX 




F9 






BPL 


SChuIF 


0 9 






LDX 


TElC 








INC 


TElC 


42 


05 




ldaax 


BEGIN 


5C 






CMP i M 


*5C 


OS 






DEO 


3W0WC 


00 






STA 


DISA 


21 


02 




.JMF 


ShOM 


00 






LDAIM 


$00 



PBl TOT FB4 L^T GANG 



/ mil vEkTGR LADEN 

MET START ADRES. MA ORUKKEN 

OP ST' STEEDS 

T E R U G N A A R S T A R T . 

G£h£l»G£NPlAATSE N 0 0 O 7 

TOT 0023 OF fiiSL 



D 1 3 F'lA V B OFFER yUL.CE N 
MET 7F C GEEN SEGMENT EIN i 1 



TOON I NHOuO VAN D I SF'LA YEGFh £R 3 



AL TOT 30 GET ELD? 
ALS NEE; NAAR SHOWS 



AL 
AL 
AL 



f aAv TOE 78 INGEDRUkT? 
3 NEE; NAAR SHOW A 

•j A; 3TEl v'hST W£Lr\£ TOE 7 



TOETSONTDEnDER I NG 

AlS T GETS-' j STEL VAST WELK.E 
V£RnOOu TELL.ER MET i 

TELLER AL 4F? 

ZG NEE; BLIJr DAN TEKS7 TONEN 
ZG J A/ TELl-ER TERuO OF NUL 

EN SCHUIF DE I NHOUD VAN DE 
D I SPLAY BUFFERS EEN FLAATS 
NAAR LINKS 



LAAD HET EERSTE DISPLAY MET EEN 
NIEUW TEKEN EN KICK OF HET *5C li 
ZG uA, OPNIEUW STAR TEN. 
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40 1 0 . 


0263 


•""» cr 

bD 


09 






STA 


TELC 




40.^0. 


0265 


A 1""- 

4L 




02 




JMP 


SHOW 




4030: 


0268 


20 


F9 


IB 


TOETS 


JSR 


GETKEY 


BEEL II: STEL VAST WELKE TOETS 


4040: 


0261 


C9 


OA 






CMPIM 


*0A 


ALS A, BAN FORMULIEREN INTOETSEN 


4050 : 


026D 


DO 


03 






BNE 


INT 


IN FORM. 




026F 


4C 


4B 


03 




•JMP 


FORM 




4070 : 


0272 


C9 


OB 




INT 


L MP I M 


*0B 


ALS B, BAN UITSLAG INTOETSEN IN 


/l A OA • 


0274 


BO 


03 






BNE 


NAAM 


INTO. 


40 rv . 


0276 


4C 


11 


03 




JMP 


INTO 




4 i UU . 


0279 


20 


FC 


Go 


NAAM 


JSR 


SCHERM 


ALS A NOCH &, OA BAN IN SCHERM HET 


d 1 1 A • 


027C 


FO 


03 






mm mm. m. 

1EQ 


TUSA 


NOB I GE BOEN. WAS HET NIET TOETS 1 


4 IzO. 


027E 


4C 


00 


Oz 




JMP 


START 


TOT 7 OA BAN TERUG NAAR START. 


A i OA • 
4 1 . 


0281 


A9 


00 




TUSA 


LDAIM 


$00 


ZET KOLOMTELLER OP NUL 


4 1 40 . 


0283 


85 


OF 






STA 


VOLGK 


4 1 JO . 


0285 


20 


7D 


/"\ A 
04 




JSR 


ZOEK 


ONBERZOEK BE EERSTE KOLOM VAN BIE 


4 1 60 . 


0288 


18 






ONDZ 


CLC 




PER300N. 


A 1 7 A • 
4 1 /U . 


0289 A5 0E 






LDA 


PLAH 


A i QA • 


028B 


69 








/\ T~, ■-• T M 

RUC 1 M 






A 1 OA - 


0280 


85 


Ob 






O 1 H 


C>l i\f\ 

r Lhh 




4. '? A A 


028F 


E6 


OF 






r Mr- 


VULbk 


□NDERZOEK DE TWbEDE EN tVENiUttL 


A "7 1 A 


0291 


A5 


OF 






LDH 


l Ji*"iS l'"•L.• 


ANDEKE KULUMMEN VAN DIE PERwuN, 


A 7 '7 A 


0293 


C5 


OB 






Lrir 


KULUn 


ALLE KULUMMEN bEHAD ? 


A */ -'A 


0295 F0 


06 






BEQ 


UnL 


ZU J A- DAN NAAR UMZ. 


A 7AA • 
4Z4U . 


0297 


20 


7B 


A A 

L>4 




JbR 


~i r*~ i>* 

ZOEK 


ZU NEhi UNDERZUEK DAN Dt Vut.bc.NDt 




02 9 A 


4C 


88 


vz 




JMP 


ONBZ 




A '"7 A A 
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The 6502 Program Exchange 

Voor singleboard computer bezitters zoals KIM, SYM, AIM65 en met 
enig aanpaswerk ook voor JUNIOR bezitters levert de 6502 software 
Exchange interessante software zoals Focal interpreter ( vgl met 
Basic ) , XPLO compiler ( PL/1 achtig ) en de bekende Tiny Basic. 
Daarnaast leveren ze een 6502 assembler, editor en de oude bekende 
Microchess schaak programma's. Ervaringen met deze firma zijn goed, 
het bestellen in Amerika niet a] te duur, bijvoorbeeld Microchess 
kost $15 + 15 % kosten . Software wordt op cassette met manuals 
verkocht, Inlichtingen en catalogus aan te vragen bij : 

The 6502 Program Exchange ( vermeldt U de naam van de 

2920 West Moana Lane KIM Gebruikers Club svp ) 

Reno NV 89509 
United States Of America 



The Computerist 



Hardware uitbreidingen in de KIM SYM en AIM65 sheer worden door 
The Computerist geleverd. Naast geheugenuitbreidingen, video kaarten 
behuizingen, moederprinten en voedingen leveren ze ook kant en 
klare 6502 systemen : de Micro Plus . 

The Computerist wordt in de Benelux ver tegenwoordi gd door 



Compulec pvba 
Naansesteenweg 382 / W5 
B-3030 Heverlee 
Tel. 016 - 22 34 88 
Belgie 
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Vfltt DE REOflKTIE 



CASSETTEBIBLIOTHEEK 



Zoals in 6502 KENNER 16 al is aan gekon di gd , gaat de redactie de 
service uitbreiden met een cassette service. Er zijn op het moment 
twee cassettes leverbaar, opgenomen in KIM + JUNIOR hypertape formaat. 
Als de source code ( alleen Micro Ade nog ) aanwezig is dan wordt 
op de andere zijde van de cassette dat ook opgenomen. In ieder geval 
is de object ( tweemaal ) aanwezig . Wat er op de cassette staat en 
hoe wordt met een begeleidend schrijven duidelijk gemaakt. Gebruik 
en beschrijving van de progranma's is in de 6502 KENNER of KIM KENNER 
te vinden. S achter de programma naam betekent ook Micro Ade source 



KIM cassette nr 1 



JUNIOR CASSETTE nr 1 



1. 


Microchess versnellen 


n r 


12 


S 


1. 


Aut register uitlezing 


n r 


16 


S 


2 . 


Supertape 


n r 


12 


S 


2. 


Moonlander 


n r 


15 


S 


3. 


Reactiesnelheidsmeter 


n r 


12 


s 


3. 


Lotto 


n r 


15 


s 


4. 


Verkeerslichten 


n r 


16 


s 


h. 


Browse 


nr 


16 


s 


5. 


Locate en Replace 


n r 


18 


s 


5. 


Stopwatch 


n r 


18 


s 


6. 


Eprom programmmer 


n r 


5 


s 


6. 


Belgische LOTTO 


n r 


18 


s 


7. 


KIM schaakprogramma 


n r 


11 




7. 


SC/MP casstte afregeling 


n r 


18 


s 


8. 


Schaakopeningen 


n r 


8 




8. 


Zenuwslag 


n r 


17 


s 


9. 


T a lens t u die hulpprog 


n r 


13 




9. 


Muziekdoos 


n r 


17 


s 


10. 


Mastermind 


nr 


k 




10. 


Dag naar week omrekening 


n r 


18 


s 


11 . 


Target 1 en 6 kolommen 


nr 


8 




11. 


Dokatimer 


nr 


17 


s 



Programma's in de cassette bibliotheek zijn of origineel van onze 
clubleden of bewerkingen van First Book of KIM programma's. Alle rechten 
van de programma's blijven aan de auteurs voor behouden . De kosten 
van de cassette zijn alleen maar kos tendekkend en niet bedoeld om de 
programma's te kopen. De KIM club is en wordt geen handel . 
Kosten per cassette f 12,50 

Bestellen van de cassettes kan door een girobetaalkaart of bankchegae 
( groene of EURO ) en een brief je met het adres en cassette nummer ( 
KIM =1 , JUNIOR = 2 ) in een envelop te sturen aan het redactie 
-secretariaa t ( Hans Otten , Ottoborrengoed 33, 3871 MJ Hoevelaken} 
Levering kan enige weken duren . Andere wijzen van 



bestellen bestaan niet 
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MflRKTINFO 



Literatuur voor 65xx gebruikers 

6502 software gourmetguide & cookbook 
Robert Findley Scelbi publications 

6502 software design 

Leo J. Scanton Howard W. Sams & Co Inc ISBN 0-672-21656-6 

Programming the 6502 

Rodney Zaks Sybex ISBN 0-89588-028-8 

Microcomputer systems principles featuring the 6502/KIM 
Camp , Smag and Triska 

How to program microcomputers 

William Barden Jr Howard W. Sams & Co Ltd ISBN 0-672-21459-8 

TV typewriter cookbook 

Don Lancaster Howard W. Sams & Co Ltd ISBN 0-672-21313-3 

Programming & Interfacing the 6502 with experiments 
Marvin L. de Jong Howard W. Sams & Co Ltd ISBN 0-672-21651-5 

6502 assembly lanquage programming 

Lance A. Leventhal Osborne/McGraw-Hi 11 ISBN 0-931988-27-6 

MCS6500 Microcomputer family Hardware manual + Programming manual 
Mos Technology Inc 



Microcomputers van A tot Z 

M.B. Immerzeel De Muiderkring B.V. Bussum ISBN 90-6082-182-3 

Ti'idschrif ten voor de 6502 : 

• Micro, the 6502 Journal, voor collectief abonnement verwijzen we 

naar J.C.J, Beijer, Bastinglaan 7 Delft 

- 65XX Micro MAG. Computing Software Hobby (duitstalig) 

Roland Lohr Hansdorfer Strasse 4- 2070 Arensburg W. Deutschland 
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